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Von unserem Super-Software-Programm sollten auch Sie profitieren!!! 
Denn haben die fantastischsten Spiele und die tolisten Hilfspro- 
gramme!!! Wir haben die Programme, die Sie haben sollten!!! 


CHESS MACHINE 
Das neue Schachpregramm, mit der ganz tollen Grafik. Sowas haben Sie noch nie ge- 
sehen! — Höchstens bei Computer mit Super-Hochauflösender Grafik! -- Und der 


Clou. CHESS MACHINE gibt Kommentare zu Ihrem Spiel. Damit Sie endlich einmal 


wissen was Sie richtig, und was Sie falsch machen! Sieben Spielstufen ! 
Preis auf Cassette: 59,-- DM Preis auf Diskette: 69,-- DM 


SUPER BASIC - DER UNGLAUBLICHE NEUE BASIC-COMPILER 

SUPER BASIC verarbeitet Felder (z.B. DIM B$ (99,8) geht!) I SUPER BASIC ist 
fast kompatibel zum Colour Genie Basic! Übersetzte Programme laufen bis zu 300x 
schrieller ! 
Preis auf Cassette; 89,-- DM Preis auf Diskette: 99,-- DM — Mit Disk-Befehlentt! 


SUPER ASSEMBLER — DER ASSEMBLER, DER NEUE MASSSTÄBE SETZT! 
Was Sie mit diesem Assembler alles übersetzen können ist unglaublich EI Und die vie- 
len Befehle, die der versteht. Die Disk-Version assembliert auf Wunsch direkt von der 
Diskette (Source-Code bis 170K 1 

Preis auf Cassette: 89,-- DM Preis auf Diskette: 99,-- DM 


HELIKOPTER 

Retten Sie die armen hilflosen Menschen! Versuchen Sie den weißen Elefanten zu 
überfliegen. HELIKOPTER — Das Spiel, von dem die Fachpresse schwärmt! (Siehe 
z. B, Computer Kontakt Nr. 6-7/84) 

Nur auf Cassette lieferbar! Preis: 59,- DM 
GORILLA 

Die fantastische Donkey-Kong Version für Ihr Colour Genie. Mit 10 verschiedenen 
Bildschirmen! 

Nur auf Cassette lieferbar! Preis: 49,-- DM 
FIREBIRD 


Können Sie die Erde vor den erbarmungslosen Angreifern aus dem All retten??? 
Super-Action ist garantiert! 


Nur auf Cassette lieferbar | Preis: 49,-- DM 
PACBOY 

Helfen Sie dem kleinen PACBOY vor den hungrigen Gespensiern zu entkommen! 
Preis auf Cassette: 49,-- DM Preis auf Diskette: 58,-- DM 
VORTEX : 

Bewahren Sie die Ringe des Saturn vor den Aliens. Schaffen Sie das??? 

Preis auf Cassette. 49,-- DM Preis auf Diskette: 56,-- DM 
ASTRAY 

Fliegen Sie den schnellsten Überschalljäger der Erde und vernichten Sie die Angreifer 
Preis auf Cassette: 59,-- DM Preis auf Diskette 66,-- DM 


Sie sehen, wir haben für jeden Geschmack etwas zu bieten. Also bestellen 
Sie noch heute bei: Heinz Hübben, Abt. Software, 5429 Marienfels/Ts. 


Versand per Nachnahme, + 5,-- DM Porto Si.“ Versand per Vorkasse: Frei 
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TER IEÜR COMMODORE C 64/5X 64 
—— PERSONAL COMPUTER MUSIC —— 


Das WERSIBOARD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodore 
Design, einem Interface-Modul und zugehöriger' Software. Gemeinsam mit dem 
Commodore VC 64 entsteht ein Musikinstrument.mit:bemerkenswerten Fähigkeiten. 


Komplett-Paket bestehend aus: 


KEYBOARD 


— 49 Tasten, 4 Oktaven C-C 

—  PROFIFORMAT 

-— Gehäuse aus stoßfestem Kunststoff 
im Commodore-Design 

— Interface-Modul mit Verbindungs- 
kabel, anschlußfertig 


SOFTWARE 

— auf5%" Diskette 

— Programm MONO 64 — 
monophoner Synthesizer 

— Programm POLY 64 — 
polyphones Keyboard 

— Klangfarben direkt am PC 
veränderbar 


EINFÜHRUNGSPREIS DM 495,- 


Direkt ab. Werk, noch heute bestellen! inkl. MWSt. 


: Absender BESTELLCOUPON 
Das WERSIBOARD MUSIC 64 ist Klasse 
U} Ich bestelle zu sofortiger Lieferung das 


WERSIBOARD MUSIC 64 zum 

A) \ Einführungspreis von DM 495, — 
! = zuzgi. Versandselbstkosten — 

Orgel- und Piano-Bausätze : m — nn 


gewünschte Zahlungsart 
Industriestraße 


[I Scheck ist beigefügt 
5401 Halsenbach Te._______________ DD per Nachnahme 
Telefon (0674 7131 


Telex 42323 


i 
137 Datum Unterschrift 
Y -- Bestellcoupon abtrennen und an Wersi senden — 
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A. Klepper, Deichstraße 2, 2221 Busenwurth, schreibt: 





1. Betr.: GENIE DATA: 
Erfreulich, daß es eine Schrift 
speziell für die Genie-Familie gibt. 
Jedoch wäre es besser, wenn 
nicht nur seitenlang Listings ab- 
gedruckt würden, sondern wenn 
vielmehr Tips u. Tricks im Um- 
gang mit dem Colour Genie an- 
geführt würden. Z.B. mit diesen 
u. jenen Poke’s kann man die 
BREAK-Taste-Funktion an, bzw. 
ausschalten usw. 

2. Betr.: Colour Genie. 

Haben die Verteiber vom Colour 
Genie gepennt? 


Es gibt kaum spezielle Literatur 
zum Colour Genie. In allgemeiner 
Literatur wird er kaum ange- 
führt! 

3. Rubrik für den Anfänger. Wo 
ist sie geblieben ? (4/84). 

Zu 1. 

Den Triek mit der BREAK-Taste 
finden Sie in dieser Ausgabe Pro- 
gramm „Trampolin”, Zeile 80. 


zu 2. 
Gepennt hat niemand! 
Zum Colour Genie gibt es folgen- 
de Bücher: 


1. Colour Basic leicht gelernt. 

2. Techn. Handbuch zum Colour 
Genie, 

3. Zwei versch. Colour Genie- 
ROM-Listings. 

4. Colour Genie Buch 1, 2 und 3. 


"5, Colour-DOS Buch. 





Vermerk der Redaktion: „Was be- 
gehrt das Herz noch mehr!” 


„übrigens ALLE DIESE 
BÜCHER KÖNNEN SIE BEI UNS 
BEZIEHEN! 


Ferner: Erhalten Sie bei der 
gleichen Adresse ab sofort die 
gesamte Angebotspalette der Fa. 
TCS Computer GMBH, 

Zu 3. 

Die Rubrik für den „Anfänger” 
kann nur erscheinen, wenn ÄAn- 
fänger uns Fragen stellen. 

Hier sind alle Anfänger zur Mit- 
arbeit aufgerufen!!! 


GENIE DATA 


Besteil-Adresse: 

Fa. Ralf M. Hübben, 

Verlag für Computertechnik 
Mühilbachstraße 2, 

D-5429 Marienfels/Ts. 
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mit, 


EB E 
Uns erreichen immer wieder Briefe, in 
denen man uns bittet, die GENIE DATA 
monatlich erscheinen zu lassen, 

Würde das auch in Ihrem Interesse 
liegen? 

Schreiben Sie uns! 

Sollte die Mehrzahl unserer Leser sich 
dafür aussprechen, wird die GENIE DATA 
ab dem 1. Januar 1985 monatlich er- 


LESER! 


scheinen. 
Bitte, teilen auch Sie uns ihre Meinu 


Mit freundliche ‚Gr 
einz Hübben 
Chefredakteur 
GENIE DATA 


P.S. Bei monatlichem Erscheinen würde den Abonnen- 
ten für je & Ausgaben {2x Im Jahr), eine Rechnung über 
DM 59,40 übarsandt. 
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HEXDUMP 


Haben Sie schon einmal probiert, mit 
dem Colour Genie einen brauchbaren Hexdump 








INHALT 











der Genie Computer ändern kann, 












































zu erstellen ? Jetzt geht es! Seite 7 una en 
3-D GRAFIK 
BOMBER ran be Ein Programm das drei dimensionale 
Ein faszinierendes Action-Spiel für Sie. Funktionen plottet. Für Genie 16! 
Wehren Sie den Bomber ab! Seite 8 Seite 26 
SCHWARZMARKT Seite 14 HUMMELFLUG 
Machen Sie Ihr Genie 16 zum Musikus, 
Assembler - Teil 6 mit unserem Programm Hummeiflug Seite 26 
Hier ist der 6. Teil unseres beliebten 
Assembler-Kurses. Seite 15 KAMPF DER RIESENZWERGE 
5 3 Was Schachprogramme wirklich können 
FÜR DEN ANFÄNGER E erfahren Sie hier am Beispiel von 
Heute erfahren Sie, wie man Programme lädt, GRANDMASTER und SFINKS Seite 28 
die sich sonst nicht laden lassen. Seite 16 
TURNIER PLANER 
GROSS - KLEIN Turniere aller Art lassen sich mit diesem 
Eine Hilfe für Ihr Colour Genie Seite 17 Programm planen ! Seite 33 
PROGRAMMIERER-WETTBEWERB DIE MAUS IST RAUS 
RÖSSL-SPRUNG Das Siegerprogramm des Maus-Wettbewerbes, 
Sie soliten mitmachen, bei unserem Wett- mit Kommentaren vom Gewinner Seite 35 
bewerb E:Wir:haben tolie Preise für 
Siel. Seite.18 TRAMPOLIN 
Ein‘tolles Spiel:für Ihr: Colour Genie Seite 37 
KLEINANZEIGEN ze 
Hi MINICALG: 2: ' 
SPRACHAUSGABE Hier haben Sie ein Kalkulationsprogramm 
Das Programm aus der letzte für alle Genie und 185 80. Somputer, Seite 41 


jetzt als Assembler- Quellcode 





WIE HÄTTEN sıE'S GERNE? 


Hier ist die Auswertung unserer Umfrage 












FUCHSJAGD. 





| Listing ab 
Seite 23: 





Ein tolles Se; für alle:Colour Ganie Freunde. 


Seite 47 





aus der letzten GENIE DATA : ” 
EINGESCHRÄNKTE HOCHAUFLÖSENDE 
SHIFT-TRICK GRAFIK 
Was man ohne viel Aula am ROM Das Programm für Genie Freunde Seite 57 
IMPRESSUM 


GENIE DATA, Ausgabe 5, Jahrgang 2, 
September/Oktober 1984 

Herausgeber: Heinz Hübben, Offsetdruckerei 
und Verlag, 5429 Marlenfels, 

Telefon: 067 72-1261 

Chefredakteur: Heinz Hübben 
Titeigsstaitung: MH, Hübben, Offsstdruckerei 
und Verlag, 5429 Marienfais/Ts. 

Satz: H. Hübben, Offsetdruckerei und Verlag, 
5429 Marienfels/Ts, 

Druck: H. Hübben, Offsstdruckerei und 
Verlag, 5429 Marieantels/Ts. 
Erscheinungsweise: Alte zwei Monate, Jewells 
amı .des Monats, 

Abonnements: 59,40 DM Inci. Porto, Verpak- 
kung und gesetzl. MWSt. 

Erfüllungsort: 5429 Marlenteis/Ts. 
Gerichtsstand: in Jedem Fall das für unseren 
Verlag zuständige Gericht. 

Manuskripte: Unangeforderte Manuskripte 
warden nur Zurückgösandt, wenn ausreichen- 
des Rückporto beigelegt wurde. Jeder Ein- 
sonder erklärt sich durch die Einsandung mit 
einer Veröffentlichung des eingesandten Ma- 
terlats in der GENIE DATA und Im GENIE 
DATA Software Service alnverstanden. 


Copyright (c) 1984 by Heinz Hübben, Offset- 


druckerei und Verlag, 5429 Marlanfels /Ts.: 


Nachdruck, Vervielfältigung, Übertragung so- 
wie Speicherung in EDV-Anlagen verboten. 
Bei Bauanleitungen und/oder Programmen 
kann für die Fehlerfreiheit keins Garantie 
übernommen werden. : 
Die Melnung der einzelnen Autoren muß 
nicht mit der des Verlages Übersinstimmen. 
Anfragen an die Redaktion bitte nur schrift- 
tich mit balgslegtem Rückporto. 

Kündigung der Abonnsments: Zu Jadern Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht In der Verantwortung des Verlages lie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
bssteht kein Anspruch auf Nachlieferung. 

Für eventuelle Schäden und/oder Folgeschä- 
den an Geräten und oder Bautellen und/oder 
Datenverlust kann keine Haftung übernom- 
men werden. Der Nachbau unserer Bauaniei- 
tungen und/oder die Anwendung von Pro- 
grammen aus der GENIE DATA arfolgt auf 
eigene Gofahr. Alle Mittellungen arfolgen nur 
für Amateur- und Hobby-Zwocke. Irrtum so- 


wie alle Rechte vorbehalten. Es kann keine 
Gewähr dafür übernommen werden, daß die 
verwendsten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
frei von Schutzrechten Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes, 
Bet allen Artikel-Einsendungean gehen wir da- 
von aus, daß der Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mor ist. 

Über jade Artikel-Einsendung freuen wir uns! 
Honorar: Für jeden gedruckten Artikei be- 
zahlen wir pro Druckseite ein Honorar von 
50,- DM. 

Wir gestatten jedermann, seinen Artikel aus der 
GENIE DATA zu entnehmen, und in siner 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaitung nichts verändert wird, das 
erwähnt wird, daß der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, 5O- 
fort nach Erscheinen, zur Verfügung stellt. 
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Sehr geehrte Damen und Herren, 

mit großem Interesse habe ich 
den Artikel „Neuer Zeichensatz 
für Genie I + II” in der GENIE 
DATA 1/84, Seite 41 ff gelesen. 
Leider hat die Autorin Frau 
Catharina Stodden einen Fehler 
eingebaut, der eine Nachahmung 
evtl. scheitern lassen könnte. 

Auf Seite 42 in der mittleren 


Spalte beschreibt sie, wie die 
einzelnen Zeichen im EPROM 
abgespeichert sind. Es ist aber 


falsch, wenn sie sagt, daß das 
Zeichen „O’” auf der EPROM- 
Adresse O000H beginnt. Wenn 
man den ASCII-Wert des Zei- 
chens „O' (48 dez.) in hexade- 
zimal umwandelt, kommt dabei 
die Hexzahl 30H heraus. An die- 
se 30H wird eine Null angehängt 
(jetzt 300H) und an genau dieser 
EPROM-Adresse beginnt auch die 
Definition des Zeichens „O” und 
endet bei 30FH. In dieser Weise 
kann man mit allen restlichen 
ASCII-Zeichen genauso verfahren. 
Die Zeichen die von O00H bis 
IFFH im EPROM gespeichert 
sind, sind Sonderzeichen die ohne 
untenstehenden Hardware-Trick 
nicht zugänglich sind. Aber viel- 
leicht kennt ein GENIE DATA- 
Leser eine softwaremäßige Ansteu- 
erung dieser Zeichen. 

Ich hoffe, ein wenig Ihr Inter- 
esse geweckt zu haben u, Ver- 
. bleibe mit freundlichen Grüßen 
Peter Spieß 
Trugenhofenerstraße 27 
8859 Rennertshofen 1 
BESTEN DANK Herr Spieß 
und wir fragen unsere Leser, 


wer weiß Rat! 
GENIE DATA 





Diese Erweiterung funktioniert 
nur ohne DOS und ohne Klein- 
schriftmodul. Vom IC Z8 auf der 
rechten Videoplatine wird einfach 
Pin 13 über einen Schalter an 
Masse (Pin 7) gelegt. 





HILFE! HILFE! HILFE!!! 
Wer hilft einem frustrierten Genie- 
Fan? 

Ich stehe vor einem schier un- 
lösbaren Problem. Wenn ich ver- 
suche in einem Basic-Programm 
Variable mit der "PRINT -1"- 
Anweisung auf Band zu schrei- 
ben u. diese später wieder zu le- 
sen, so findet mein CG alles, nur 
nicht die Daten. Ich habe in- 
zwischen alle guten Ratschläge 
(Tonkopfjustierung, veränderte 
Lautstärke, anderes Band, etc.) 
ausprobiert, ohne Erfolg. Selt- 
samerweise tritt dieser Fehler nur 
bei Basicprogrammen auf, mit 
Maschinenspracheprogrammen 
aber nicht. 

Ich habe z.B. keine Probleme, 
wenn ich mit meinem COLTEX 
Texte abspeichere u. sie dann 
wieder lade. 

Bei den falsch gelesenen Variab- 
len sind oft aus wenigen Zahlen 
mehrzeilige Daten geworden (z.B. 
5-6 Zeilen U ), oder es werden 


wirr Zahlen, Buchstaben u. Gra- 


Tikzeichen dargestellt. 

Vielleicht weiß jemand Rat, wie 
man dieses Übel beseitigen kann, 
evtl. durch ein Maschinenpro- 
gramm, welches man aufruft? 
Hubert Martin 
Hirschfeld \ 

8641 Steinbach/W. 


Wer weiß Rat? 
Wer kann helfen? 


GENIE DATA 





Als Leser Ihrer Zeitung + Abon- 
nent von’ der .ersten Ausgabe an, 
möchte ich..mich einmal für das 
gesamte Wissen, daß ich bisher aus 
der GENIE DATA aufnehmen 
konnte, bedanken. Um auch Er- 


fahrungen anderer Colour Genie- 
Besitzer zu erfahren, bitte ich Sie’ 
unter der Aktion „Leser sucht 
Leser‘ folgende Haupt-Interesse 
anzugeben: Colour Genie, Disk, 
Tips und Erfahrungsaustausch, 
Mit besten Dank 
und freundlichem Gruß 
Helmut Aldag 
Rintelner Straße 8 
4952 Porta Westfalica 
So etwas hört man gern und wir 
hoffen, daß Sie bald'Ihre Kon- 
taktleute finden werden. 

GENIE DATA 





Lassen Sie mich: zuerst an dieser 
Stelle sagen, daß ich die GENIE 
DATA wohl für die am besten or- 
ganisierten Fachzeitschrift im 
Computerwesen halte. 

NUN ZU MEINER FRAGE: 

Mir ist. von einem Freund, 
der auch ein Colour Genie besitzt, 
zu Ohren gekommen, daß das 
Diskettenlaufwerk für das Colour 
Genie erst ab der Speicherstelle 
6000 abspeichert. 

Dieses hätte ja den Nachteil, 
daß man Programme die sehr lang 
sind, wie z.B. Deathtrap von TCS, 
überhaupt nicht auf Diskette 'si- 
chern kann. Die Tatsache, daß 
TCS Deathtrap nicht auf Dis- 
kette anbietet läßt mich vermu- 
ten, daß mein Freund mit seiner 
Aussage Recht hat. 

Detlef Heese 
Hölderlinstraße 16 
4500 Osnabrück 
Wer weiß genaues? 


GENIE DATA 








Anette name HEERES oe 


unsesnnsnansnmmennTereren een er enara roten srererernennev erde sebrdstetenuntemä ihrer 
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Ralph Ertner 


HEXdump 


Das folgende Programm ist für 
das Colour Genie geschrieben u. 
belegt die ersten 800 Byte im Zei- 
chenspeicher {F400H:F720H), 
kann also von jedem @G-Besit- 
zer benutzt werden, egal ob 
16, 32 oder 44 K, alte oder neue 
ROMs. Wenn das Programm ein- 
getippt ist, kann es bei F500H 
gestartet werden. 

Nach Erscheinen der Überschrift 
verlangt es als Anfangs- u. End- 
adresse des zu "dumpenden' 
Speicherbereiches jeweils 4-stelli- 


ge Hexzahlen. Sollte eine der Zah- 
len keine Hexzahl sein, die End- 
adresse kleiner als die Anfangs- 
adresse oder eine der Zahlen 
nicht 4-stellig sein, kommt &s zu 
einer Fehlermeldung mit anschl. 
Neustart. Die Ausgabe besteht 
im ganzen aus {INT ({Endadresse 

Anfangsadresse)+1)/16 Zeilen 
folgenden Aufbaus: Am Zeilenan- 
fang steht die hexadezimale Adres- 
se des ersten der weiteren Byte. 
Es folgen ein Doppelpunkt u, die 
mit der Adresse beginnenden 16 


Byte, natürlich auch hexadezimal. 
Den Abschluß jeder Zeile bilden 
die ASCIl-Zeichen der 16 Byte, 
wobei alle Byte, die kleiner 20H 
u. größer 7EH sind, als Punkt 
dargestellt werden. 

Das Programm wurde mit dem 
STAR DP 8480 getestet, läuft 
aber auch auf anderen Druckern, 
die 80 Z/Zeile darstellen können 
u, als Steuerzeichen für Fett- 
schrift (Double width)OEH haben. 
Damit ist zu dem Programm alies 
gesagt. 


Beer et et 


+ + 
# HEXDUMPF .f« Colour Genie * 
0 * 


aekaskkerkenkeuhinkekakktokiuhkentetketotetektekefshnfetaketetoketekeketokakkakntokstetetektnk 


20 


F400 .: DB 20 

F410 2::6F 66 .6F 
F420:8::00:DE:20 
F430:8:.::20:20 20 
FA40 : 00.00 DE 
F450:3:: 65.4861 
FALCO = - 00:00. 009 
F470 *» 36 DE 23 
F480 : CDCS F4 
F490 : 36 20 23 
FARO » CD CS FA 
F4EO s F4 ED BO 
FACO ı 10 FB 36 
F4DO : DS DD Ei 
FA4EO » ES Ei DF 
FAFO 2: CD FE 34 
FS500 ı OD SE 07 
FS10 : F& CD CA 
F320 2: ZA 20 20 
FS30 ı 14 20 20 
F540 ı 47 685 &E 
FSS50 ı 297 20 Si 
FI60 ı 72 65 48 
F570 2: ED BES FS5 
FSB0 ı 21 20 FS 
F590 s C5 FS 06 
FSRO 8 10 3E 20 
FSBO ss C97 00 00 
FSCO ı 2A CD SB 


48 
75 
20 
20 
20 
75 
00 
10 
ED 
10 
ED 
Ei 
CF 
21 
DA 
D2 
32 
F4 
20 
20 
69 
39 
61 
06 
0% 
32 
CD 
00 
00 


45 
72 


20 


20 
20 
73 
CD 
FB 
BO 


SB 
20 
28 
20 
20 
20 
67 
36 
Ei 
Sb 
Ei 
28 
EB 


44 
47 
43 
20 
20 


53 
65 
29 
20 


20. 


52 
21 
Ei 
28 
Ei 
28 
09 
IE 
E7 
11 
46 
66 
CD 
0E 
2E 
20 
62 
45 
FS 
3B 
10 
F9 
SE 
FS 


aD 
GE 
20 


20 
20 
54 


0 
67 


20 
65 
39 
20 
6r 
45 
ES 
00 
ES 
00 
ES 
23 
21 
FD 
CD 
30 
40 
CD 
58 
&r 
20 
53 
4E 
ED 
10 
94 
FS 
3B 
FS 


20 
20 
38 
20 
6 
52 


66 
20 
33 
20 
74 
20 
DB 
ES 
DB 2% 
ES 
42 
IC 
F4 
DD 
35 
46 
64 
01 
55 
&F 
00 
66 
52 
03 
CD 
ED 
iF 
10 
so 


<E 
Er 
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FSDO : 
FSEO : 
FSFOD : 
FAOG 3: 
F&610 : 
FO2O : 
FARO : 
F640 : 
FESO : 
Fa&boß 
F&70 * 
F680 
F670 : 
FORD : 
FORO : 
FLO 8 
FADO : 
F&EEO 3 
Faro : 
F700 : 
F7IO : 
Ulrich Groke 





10 FOEE &HF400.155 
20 FOHE SHFAOL:YO 
20 FOEE %HF402: 60 
40 FOFEE SHF4073, 24 
SO FORE SHF404,&0 
0b FOHE HF405: 66 
70 FOKE &HF408: 12% 
80 FOEE %HF407.129 
70 FOEE SHF408, 153 


100 FOKE 
110 FOEE 
120 FOEE 
130 FOKE 


&.HFAOF:IO 
UHFA4OA. 60 
UHFAOR, 24 
HFAOO, SQ 


00 1O F7 CD EFFS 
CD ZB 00 23 10,F9 
6 61 GE 67 72 61 
&E 64 61 44 72 65 
SE 92 32 20 40 ZE 
SE AS 32 20 40 Z1 
SE EI SZ 20 40 21 
21 FC F4 06 04 CD 
20 20 20 20 20 28 
20 43 69 GE 67 &1 
46 22 21 40 21 50 
ES OB F5 00 DD ES 
00 00 7E CD F4 F& 
SA CD ZB 00 ZE ZO 
F7 06 10 7E FE Z0 
ED F4 F& 23 3E 20 
ED ZB 00 10 FY 11 
Di 10 F7 CD 94 03 
2ZE 18 C97 FS CR FF 
Ed OF FE OA 30 06 
ZE ZE ZE ZE ZE ZE 


140 
120 
160 
170 
180 
90 
ZOO 
z10 
ZEO 
E20 
240 
250 
260 


FÜOKE 
FOHE 
FORE 
FOEE 
FÜEE 
FÜHE 
FÜHE 
FOHE 
FORE 
FOHE 
FOEE 
FOEE 
FÜHE 


74 
03 
72 
73 
Re 


a pr 


Fa 
F6 
05 
&E 


O3 ED BES 
ED 94 03 
63 73 73 
6893 20 20 
21 40 71 
0& 04 CD 
CD A7 28 
78 FE 04 
&aR dF 72 
29 00 3E 
A7 28 O1 
O0 00 00 
FA F& SEE 
00 3E 20 
FE 50 30 
oo Di 10 
06 10 1A 
Di ER DF 
CR SF CR 
ED ZB 00 
ZE ZE 2ZE 


&HFA4OD. Aö 
SHFAUE: E65 
uHFAOF» 36 


HF410: 0 


&HFALL:9& 
SHFAIE: 76 
YHFALSS GE 
SHFA14: Y& 
SHFAISS: 120 


HF41&: 8 
&HF417:8 
SHF418,0 
&HFA419.0 





FS 
10 
65 


20 


SE 


03 FF 
FR C9? 
PO ZA 
20 20 
FS CD 
05 CD 
5 32 
&E Fü 
65 6B 
a2 20 
FF Cn 
00 00 
ED SB 
ZB 00 
2 iC 
04 04 
DS CD 
ER 18 
ED 03 
Ca 37 
ZE 2E 


270 FOEE 
280 FOEE 
270 FÜRE 
300 FOHE 
310 FOHE 
oO FOEE 
FOHE 
FOHE 
FOHE 
FOEE 
FÜHE 
FOHEE, 
FOEE 


wur 


oo 
41 
HD 
aA 


47 
20 
Cr 
74 
40 
BO 
OO 
O0 
ii 


SE 
SB 
Aa 
F7 


2E 


SHFA1A: 2 
&HF41B:15 
SHFAIO» 51 
LHFAID> 65 
SHFALIE» 127 
sHFAIF> 255 
UHFAZO:D 
YHFAZI: 126 
u HFAZE> 233 
UHFAZE: 255 
UHF424: 255 
UHFAES: 259 


SHFAZS: 295 


rer sinne ehe 














cc Computer Studio GmbH 
Elisabethstraße 5 


400 FOEE %HF427: 255 4600 Dortmund 1 
410 FOKE %HFA428:0 Tel.: 0231- 528184 
420 FOKE &HFA29.0 1x 822631 cocsd 
ZO FOKE &HFA2A, 192 Sea | 
440 FOHE %HFA42B, 240 
450 FOKE &HF420: 748 hy NEU VE u 
. u FED arau aben die ans gewarte 
460 POKE Due = GENIE II s 
470 FORE SHF42E, 254 Aus deutscher Produktion! 64K RAM, abgesetzte 
480 FOKE %HFARF,» 255 deutsche Tastatur, Bereits im ROM enthalten; 
490 FOEE SHFA30, 128 Microsoft-BASIC, Maschinensprache Monitor 
500 EOKE $ HFAZ1.64 Text Editor und Assembler 1795 ,- 
SEE ae GENIE 16 - Die 16 Bit Sensation 
en FORE SHFA32: SZ 8086 CPU, 2 Laufwerke je 360 KB, Farbgrafik, 
20 FOKE &HF4ESE: 16 mit Perfect Calc, Perfect Text 
So FOEE &HF434:.8 und Perfect Filer 5900,-- 
540 FOKE SHF435.4 NEU: TANDY MODELL 100 der tragbare ab 1395,-- 
550 FOKE &HF436, 7 COLOUR GENIE en 
In vo > Wir können noch liefern! 
560 POKE &HFAS7>1 16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben 
>70 FOEE &HF438>»1 auf Ihrem Farbfernseher, TRS-80° Mod. 1 
380 FOHE %HF439.72 BASIC kompatibel 598,-- 
=90 FDEE RHFAZB: 4 - dto. mit 32 KB RAM 670,- 
600 FOKE &HF4IR.8 ®TRS-80 ist eingetragenes Warenzeichen der Tandy 


Corp. SCP/M ist eingetragenes Warenzeichen von Digital 
Research. 


&il FOEE %HFA3C. 1& 
820 FOKE “HFATD: SE Bud Zn 
630 FOKE &HFASE; 64 az 
640 FOKE &HFASF. 128 = = BR et si 

anne enree ir onitor cc ‚ Stahlblechgehäuse, 

ea FÜRE SHF4A0: 26 20 MHz Bandbreite, Röhre Bernstein, entspiegelt! 348,-- 
&580 FOKE %HF441:60 


a ans = z Slim Line Laufwerk, Doppelfloppy, kompl. 
870 FOKE &HF442: 60 mit Gehäuse, Netzteil u. Kabel 1499, 


880 FOKE «HF443.74 Andere Laufwerke und Kapazitäten auf Anfrage lieferbar. 
870 FOHE %HF444: 74 
700 FOEE SHF445, 24 
710 FOEE SHF44&.24 
720 FOEE %HF447.24 
720 FOEE SHF448, 724 


TELEFONMODEM Acoustic Koppler AC 300, 

voll Duplex, Originate und Answer, 

FTZ-Nr. 18,13.1897.00 539,-- 
Brother HR 15 Typenraddrucker der ideale 
Schönschreibdrucker mit den vielen Kombi- 
nationsmöglichkeiten 





740 FOHKE %HF449,24 ums Katalog u. Testbericht kostenlos 1599 -- 
750 FOEE %HF44A.724 Expansion Interface für TRS-80° incl. 332K RAM 925.-- 
760 FOKE %HFAARB, 2A Double Density Controller für Tandy und 

770 FOKE &HF44C: 24 Video Genie 198,-- 
780 FOKE &HF44D, 60 16 K Erweiterung für Colour Genie 79.-- 
790 FOKE UHFA4AE, 60 0 120 Zi/sec, 998... 
800 FDEE SHF44F,236 Zenith Monitor grün o. bernstein entspiegelt 298,- 


810 FOKE %HF450»2 Datenrecorder 6019 (bitte Datenblattanfordern) 149,-- 
B2ZO FOKE %HF451:52 EEE SARA nn = 
SO FOKE &HF457.44 
Be BASF Disketten, Qualimstrik, 10 Stück 
mn r “ = ® r uc 
nn ie es ns mit Verstärkungsring, Double Density 
i " : Verbatim Disketten mit Verstärkungsring 


870 FORE SHF456> 0 10 Stück, DD, mitorig. Reinig. Set 
BBO FOKE &HF457,0 Farbig sortierte Diskettenboxen, 19 Stück 
890 FOKE SHF458.0 Datencassette C 20, BASF- SM 
erde Ba Farbbänder für: 
900 FOKE SHF459,0 Tandy Line Printer I, It u. IV je 
910 FOKE &HF45A-Ö Tandy Line Printer It u.V je 
920 FOKE &HF45E.0 Tandy DW II je 
930 FOKE &HF4SC, 255 Epsorı MX 80 je 
940 FOKE &HF45SD,S | 1t0h 8510, 1550 je 
950 FOKE &HFASE.E Oki Microline, Star je 9,50 
960 FOKE KHF4SF,0 | Best auf Anfrage. 
970 FOKE &HF4640.7 ı Alle hier angebotenen Produkte sind ab Lager lieferbar. 
980 FOKE SHF461.255 | Alle Preise incl, Mehrwertsteuer. 


ostenlos anfordern] 3 
Wir suchen ständig neue Programme für Colour Genie! _ 





990 FOKE “HFABZ: ZA > NEU: 28 Seiten Colour Genie Softwareliste ; 


Buch- sowie ABO-Bestellungen an: 
Druckerei und Verlag HÜBBEN, 
Mühlbachstraße 2, 

D - 5429 Marienfels/Taunus 


kommt es!!! 











Preis: NUR DM 49,-- 
Sichern Sie sich ihr COLOUR GENIE BUCH 
indem Sie es noch heute bestellen! 
- Ende Oktober werden wir die Bücher verschicken] - 


Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte ROM'’s im Ver- 
gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks-selbst gebaut, was braucht man 
an Software, wie arbeitet man mit dem Bildschirmsteuerungs-IC, wie programmiert man den PSG 
(Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, alles 
mit vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie haben! Es bringt Ihnen viele Informationen, die Sie 
nötig brauchen. Für Anfänger und Profis! 


\ Im U 
NEUABÜNNENTEN 


Unter allen ABO-BESTELLUNGEN die im Zeitraum von 
1. Oktober 1984 bis 1. November 1984 
bei uns eingehen, verlosen wir einen VZ 200 - COLOR COMPUTER. 
Den Gewinner geben wir in der nächsten GENIE DATA bekannt. Der Rechtsweg ist ausgeschlossen. 
SELBSTVERSTÄNDLICH erhalten NEU-ABONNENTEN auch weiterhin 
KOSTENLOS unsere beliebte PROGRAMMSAMMLUNG für die Genie-Familie! 


Der VZ 200 COLOUR COMPUTER bietet Ihnen folgende Vorteile 

12K Microsoft* Basic im ROM, 4K RAM, erweiterbar um 16K oder auf 64K, 32 Zeichen auf 16 Zeilen, Grafik und Text ist 
kombinierbar, HiRes Grafik-Modus mit 128x64 Punkten und 8 Farben, komplette Tastatur mit 45 Tasten, Basic-Befehle mit 
einem Tastendruck, im Textmodus 9 Farben, Tonwiedergabe über eingebauten L.autsprecher, mit COPY-Befehl voller Ausdruck 
der Bildschirmgrafik, 600 Baud Cassstten-Interface für handelsübliche Casssttenrecorder (kein teueres Spezialgerät), 
Centronics-Paralell-Druckerinterface (Sonderzubehör), Peripherie-Anschluß (direkt eingebaut), anschließbar an jeden Farb- 
oder SW-Fernseher oder Video-Monitor, und, und, und...... 

Im Lieferumfang enthalten sind 3 deutsche Handbücher, eine Demo-Cassette, ein Netzteil und der Computer. 
























. 
: 
x 
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1000 FOKE &HF463: 36 

1010 FOEE SHF464,755 

1020 FOEE &HF465: 1276 

1030 FÜKE SHF466, s0 

10640 FOKE &HF467,74 

1650 FOHE &HF468:0 

1050 FÜHE %HF469:0 

1070 FOKE UHF46A:0 

1080 FOKE SHFA6R. 0 

1090 FOKE SHFAAC. 255 

1100 FÜHE &HFA46&D: 192 

1110 FOHE %HF46E.472 

1120 FOKE &HFA46F.6 

1120 COLDURZ4:CL5:LGR 

1140 FRINT@EIS: "EAMFFANWETSUNG" 

1150 FRINT@BO, "Kanone mit "SCHR$ (25 5:" und "SCHR$S(RSS):" einrichten." 
11580 FRINTE180:. "Abschuss mit Leertaste" 

1170 FRINTESSO. "Weiter durch druecken der Leertaste"” 

1180 AS=INKEYS:IFA$I>" "THEN 1180 

1190 CLS:LGR:COLOURE 

1200 FRINT"Gebe Schwieriskeitserad ein (1 - & )" 

1210 Ast 

1220 A=FEER (-2032 

1240 IF A =2 THEN D=100:60T01270 

1250 IF A =4 THEN 0=50:60T01270 

1260 IF A =3B THEN 0=-0460T01270 

1265 GOTDIESO 

1270 CLS:Z=1000 

IZB0 R=9185:M=0 

1290 COLOURSF:FRINTE760:" Ad "s:CDLOURS:SFRINT RER "::C0OLOURSSFRI 
NT’ AHHEEREEE. ele ae e ie En "3: CODLOURZ:FRINT"®"3:COLOURA:FRINT"” 
BER "3: COLOURA:FRINT' edle "3 S COLOUR: FRINTT A IR W':S:COLOURZ:FRINT 
"V3S:COLDUR4EFRINT'" mu "5 

1300 COLDOURE:SFRINT MEERE" S CODLOUR4S FRINT" WERE 5 S COLDURZEFRINT"="::COLDU 
RS:SFRINT" 3": COLOUR? FRINT" "3 2: COLOUR: FRINT "lu 8 3 2 COLOUR7=FRINT'= 
"3=CDOLDURA:FRINT' Bed BEI”: : COLDURFEFRINT" =": COLOUR: FRINT' RSSREEEBER"' : : COLL 
OQUR7= FRINT"IRP': 

1210 CODLOUR4:FRINTTRE ARE Ku 

1220 B=39 

1230 K=900 

1240 G=RND (25) 

1350 U=RND (35 

1360 W=RND (35) 

1570 V=RND (35) 

1380 C=RND (35) 

1385 IF G6=C THEN 1580 

1390 IF G£C THEN D=i ELSE Del 

1395 F=G 

1400 F=F+D 

i410 COLOURT=FRINTE F>CHR${ISY) SCHRS{LET)I SCHRS$ (140) SC CHR$ (141) 3 CHRS$ (141 
) 

1415 IF FEEK(-2032)=184 THEN STOF 

1420 A=FEEH (-1984) 

1420 IF A =64 THEN IF KZY16THEN Kek-+l 

1440 IF A =32 THEN IF K>8BITHEN Kek-i 

1450 COLOURS:PRINT@R: "da" 

1460 IF R<40 THEN GDOSUB 1790 ELSE 1470 

1470 IF R<76& THEN 1490 ELSE GOTO 1480 

1480 A$=INKEYS$:IFA$Z>" "THEN 1500 ELSE R=k-199:GOSUR1780 " 

1490 IF R=718 THEN 1500 ELSE GOSUR 1890 





12 GENIE DATA 


FF FTETEETTETETETTNe ih TFT rer rer RETTET 


1500 IF E5880 THEN GOSUR FF60 

1510 IF F=U THEN 1540 

1520 IF F=V THEN 1540 

1550 IF F=W THEN 1540 ELSE 1560 

1540 B=F+42 

1550 U=sF8B: Vv-3B:W=38 

1560 IF BX880 THEN IF B>40 THEN GOSUR 1740 
1570 FRINTER+HA40," "5 x 

1580 FOR I=i1 TO Gi NEXT I 

1590 Z=eZ-1s1IF Z£0 THEN Z=0 

1800 FRINTEIZO:ZS 

1810 FRINTE Fx" 2 

1520 FRINTEH-" " 

1830 FRINTER, " " 

1540 FRINTER." " 

1650 IF B=R THEN GOSUR 1910 

1660 IF RX760 THEN R=R-40 

1670 IF B=R THEN GOSUR 1910 

16880 IF F=C THEN 1690 

1685 GOTO 1400 

1,90 G=C 

1700 IF B=39 THEN IF QD=100 THEN 1370 

1710 IF B=37 THEN IF Q=50 THEN 1260 

1720 IF B=39 THEN IF Q=0 THEN 1350 

1730 GOTOD 1280 

1740 E=EB+40 

1750 COLOURA4:FRINTER: CHRS$ (136) 

1760 COLOUR: RETURN 

1770 SOUNDI 6: SOUNDS: 5: SOUNDS: 11: SOUNDS» 2: 50OUND7? > 7: S5QUNDSB: S1:50UNDY, 1 
x SOUND10O. 24: SOUND12: 80:50UNDII2: ZRETURN 

1780  SDUNDS. 3:50UND7? » 7:5SDUNDB: 16: 50UND9, 16: SOUND1O: 15:SDUNDI 2, 15: SOUN 
Di: O:RETURN 

1790 COLOURE:FRINTER, "®" 

1800 GUOSUR 1770 

1810 FOR I=1TD50:NEXT I 

1820 FRINTER." " 

1830 IF R=F THEN GOSUB 1960 

15840 IF R=F+i THEN GOSUR 1940 

1850 IF R=F+2 THEN GDSUR 1960 

1840 IF R=F+3 THEN GOSUR 1960 

1870 IF R=F+4 THEN GOSUR 1960 

1880 R=918:RETURN 

1870 FRINTER,.CHR$ (137) : DCOLDURA4: FRINTER+40: CHR$ (1238) RETURN 

1900 IF A AND 8=8 THEN IF R:881 THEN R=E-158:RETURN 

1910 COLOURF:FRINTER, "@" 

1720 GOSUR 1770 

1930 FOR I=i TO 50:NEXT I 

1740 FRINTER," ” 
1950 Z=7+100:R=918:B=T9: RETURN 
1960 FRINTEF." mmsEmS 

1970 FOR I=1TO1OO: NEXT I | 
1780 FRINTEF.»" ” 
1990 GOSUR ZE50 

2000 FP=F+41 

z010 COLOURS 

2020 FOR L=F TO 678 STEF 40 

2030 COLDURA4:FRINTEL » CHR$ (11) SCHR$ {LZZI SCHRS$ (1 
2040 FRINTEL+40; CHR$ (134) 3" "SCHRS$ (135) 

2050 COLOURSSFRINT@L+81:CHRS$ (128) 

20&0 COLDURA: IF B>240 THEN FRINTER,CHRS$ (136) 

















SIRO7FO 
POBO 

"2090 
2100 
zı1i0 
2120 
zLEO 
2140 
2150 
2lesn 
2170 
zZ180 
2190 
FROO 
See 


3220 
2240 
ZRSO 
A260 
2270 
ERBO 
ZEIO 
2300 
2310 
FZRO 


ZERO 
2540 


EII0 


en 
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IF B:240 THEN B=39 

IF B>880 THEN GOSUR 380 

FORI=1TDSO:NEXTI 

FRINTEL-+81:- CHRS$ (129) 

FORI=1TOSO:NEXT I 

FRINTER," " 

IF B>40 THEN B=B+40 

FRINTEL>" a 

FRINTEL+40." 5 

FRINTEaL+80, " E 

NEXT LI 

COLDURS:FRINTEL+9O, "RER" 

FRINTEL+120. VBE"CHR$ (120) @" 

FRINTEL+16D, "am" 

COLUOUR4:FRINTEO,"r # # Du hast die Stadt serettet + + «" 
FRINTEBO: "Die Stadt bekam"sMi"Treffer" 

FRINT@E68O. "Endstand : ":2:” Funkte" 

IF M{i4 THEN 2750 ELSE ?580 

EBLOURS: PRINTEZ1B: 

FRINTEZSSHHRN" 

FRINTE2IA:'"R Oo BB 2 ai" 

FRINTESEZO; ' ERERERNEEEZE" 

FRINTEE7&: '" ERREENEEEEER 

FRINTBAlIG.TF m WW 

FRINTE459, m" 

FRINTE49B: " ARE" 

COLDUR4:FRINTB&AOO:. "Du bekommst das + * Eiserne Kreuz + +" 
GOTO 2580 

SQUNDO , 255: 50UND1, 15: SOUND: 255: SDUNDS: 15: 5SQUND4 ; 255: SOUNDS» 15:50 
23: SOUND?» 7: 5OUNDB, 31: SQOUNDY. 31: SDUND10: 31: SQUNDI1 1, 255:5SDUNDI12: 25 





ı 5OUND1 2: 95: RETURN 


2360 
2370 
2380 
390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
230 

Ss1o 


2320 


au 

540 
2550 
EI60 
2570 
2380 
2590 
ZOO 
Z8&10 
ZORO 
SO 
2640 


COLDOURS:GOSUR 1770: FRINTER, "We 

FOR I=1TOSO:NEXTI 

IF EB=K THEN 2440 

IF Bek+i THEN 2440 

IF Bek+2 THEN 2440 

FRINTER, " 

M=M+1:27=7-100 

B=39: RETURN 

SOSURFFSOFTCOLOURE 

FRINTERS u 

FOR I=1TOIO0:NEXT I 

FRINTEH, " n 

GOSUR 2350 

FRINT@E-41," " 

FOR: I=1 TO100: NEXTI: GOSURFESO 

FRINTEH-8L.'' “ 

FOR: I= ETOL00: ‚NEXT 1:G0O5UR2330 

FRINTEE-LETS a 
FRINTEO:"Jetztihates Dich rasche = 
COLOURA4: FRINTESO: "Die Stadt ‚bekam: SM" Treffer" 
FRINT@150: "Der: Filot bekommt .den Tapferkeitsorden" 
FRINTEP4O. "Di bekommst iQ" Punkte" 

COLOURS :PRINT@920, "Noch ein Sriel ? tJa=J7/ Nein=N DI" 
A$=INKEYS$: IFAS=""THEN. 2 5970 

IFAS>"IJI"THEN IFAS$« SON THEN E70 
IFA$S="N"THEN GOTO 2620 ELSE GOTO 1190 
CLS:FRINT@E410: "Dann eben nicht” 

FRINT@485: "Vieleicht ein anderesmal" 

FOR I=1TO1I000: NEXT I 











14 GENIE DATA 





COLOUR GENIE HARDWARE 


Automatische Cassettenrecordersteuerung 
mit Einbauanleitung 


Colour Genie Joy Stick 


DM 79,80 


für Spiele, die sonst mit der Tastatur 
gespielt werden 


SOFTWARE-KATALOG 


DE 


Versand: Entweder per Nachnahme oder per Vorkasse 
auf unser Konto 66811 bei der Stadtsparkasse Osnabrück 


(BLZ 26550001} 


Datenrecorder-Probleme? 


Muß nicht sein! 


DM 24,80 


Mit unserer Zusatzplatine werden die Daten digitalisiert. 
- In jedern normalen Recorder einzuschleifen ! 


Mit Einbauplan 


Für die "Alten’’ 


Modul DM 98,-- 


Levelmeter Nachrüstsatz kompl. mit Einbau- 


anleitung 


DM 19,80 


Commodore VC 20 + VC 64 


Cassetteninterface Vers. 1 mit Schaltern mit Bedienungs- 
anleitung (wird nur auf den Port gesteckt). 


Für alle handelsüblichen Recorder 


dito Vers. 2 


DM 29,80 


mit automatischer Motorsteuerung für den Recorder. 


Mit Bedienungsanleitung 
Light Pen für C 64 in Vorbereitung ... 


DM 36,80 


Bei Bestellungen ab DM 50,-- Porto und Verpackung frei. NDR-Computer-Bausätze bei uns! 





TELEFON 0541/58866 





CHWARZmarkt 


Wie man immer öfter hört u. liest gibt 
es in Deutschland einen Software 
Schwarzmarkt. Hier wird von Schäden 
in Millionenhöhe gesprochen, die von 
illegalen Programmkopierern verursacht 
werden. Man liest von Verhaftungen, 
Beschlagnahmungen, Schadensersatzkla- 
gen und Gefängnis. 

Wir wollten einmal wissen, was an 
diesen Berichten wahr ist, und ob es 
wirklich so schlimm bestellt ist. 

Also haben wir über Kontaktleute 
Kleinanzeigen veröffentlicht, und die 
Schwarzkopierer aufgefordert, uns ihre 
Tauschlisten zu senden. Und siehe da, 
die Post kam! Die tolisten Colour 


Genie-Programme wurden hier zu Spott- 
preisen angeboten, oder sogar kosten- 
los, nach dem Motto: „Gibst Du mir, 
geb ich Dir!” 

TCS-Programme, Programme der Fa. 
Schmidtke und Programme von uns 
und andere waren hier zu finden. 

Aber nur illegal hergestellte Kopi- 
en, gefertigt in trügerischer Absicht, 
mit einem Status, der in etwa dem von 
Falschgeld entspricht! Ja, der Schwarz- 
markt blüht! Hier wechseln Program- 
me, oftmals für viele tausend Mark, den 
Besitzer, ohne das der rechtmäßige 
Autor, oder die Vertriebsfirma einen 
roten Heller sehen. 


Da sollte man sich als ehrlicher Com- 
puterbesitzer nicht wundern, wenn es 
bald keine neuen Programme mehr 
gibt! Denn wenn auf ein verkauftes 
Programm zehn Raubkopien kommen, 
wird die Programmentwicklung bald 
finanziell uninteressant! Wir sollten 
also alle etwas dafür tun, daß in Zu- 
kunft den Raubkopierern keine Chance 
bleibt! 

Sie, indem Sie keine” Raubkopien 
erwerben, Ra, ragt 
WIR, indem wir. unsere. Adressen an 
unseren Anwait.weiterleiten.:-.:.:: 

‚GENIE.DATA REDAKTION. 














! 
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Assembler - Teil6 


Herzlich willkommen, beim 6. Teil 
unseres Assembler-Kurses! Da 
wir vom letzten Mal keine Auf- 
gaben haben, können wir heute 
sofort loslegen. 

Heute lernen wir einen neuen 
Befehl kennen, der es uns er- 
möglicht, relativ, einfach Schlei- 
fen zu programmieren. Der Be- 
fehl heißt: DUNZ. DUNZ ist 
die Abkürzung für 'Decrement 
and Jump if Not Zero, was auf 
deutsch etwa heißt: Vermindere 
und spring wenn nicht Null. 

Allein aus diesem Namen kön- 
nen wir schon fast alles ablei- 
ten, was dieser* Befehl tut: Er 
vermindert etwas, und springt, 
wenn das Ergebnis nicht Null 
ist. 

Jetzt müßten wir natürlich noch 


wissen, was vermindert wird! 
Antwort: Der. Inhalt des . Re- 
gisters B. 


Und’ .wohin wird gesprungen? 
Zu einer Adresse oder Sprung- 
marke: (Label). die hinter- DINZ 
steht. 

Wir können also eine Schlei- 
fe aufbauen, indem wir eine 
Zahl in das B-Register. laden, 
dann unsere Befehle eingeben, 
die in der Schleife abgearbei- 
tet werden sollen und dann 
DJNZ Label verwenden. 

Ein Nachteil dabei ist natür- 
lich, daß solch eine Schleife 
höchstens. 256 mal durchlaufen 
werden kann. 

Warum? 

Weil das -B-Register... höchstens 
eine 8-Stellen. lange: Dualzahl faßt, 
es hat also 8 Bit. 

Und wie wir: wissen, kann:man 
mit 8-Bit nur eine” Zahl: bis: zu 
Größe 255 darstellen! 

Jetzt werden Sie. sich zurecht 


fragen, wieso ich eben von 256: 


Schleifendurchläufen gesprochen 
habe! 

Also: Wenn ich das B-Regis- 
ter mit Null lade und dann ein 
DJNZ ausführe, wird das B-Re- 
gister um: eins vermindert. Da 
keine negativen Zahlen darstell- 
bar sind, ist das Ergebnis 255! 


Jetzt wird bis auf Null herun- 
tergezählt. Das macht also 255 
Durchläufe plus dem ersten ist 
gleich 256! 

Sie sollten in einer Schleife 
das B-Register nicht verändern, 
da das sonst zu einem Absturz 


des Programmes führen kann, 
falls sich hier ein Fehler ein-. 
schleicht! 

Jetzt wollen wir uns aber 


einmal das Beispielprogramm an- 
sehen. Colour-Genie-Besitzer ach- 
ten bitte auf die Änderungen 
ab Zeile 240! 

Zeile 100 legt in altbekannter 
Weise den Anfang unseres Pro- 
grammes fest. Genauer gesagt, 
die Adresse, in der das erste 
Byte unseres Programmes abge- 
legt wird. 

In Zeile 110 definieren wir 
den Anfang des Bildschirmspei- 
chers und. legen den Wert un- 
ter. dm Namen VIDEO ab. 
in Zeile 120 definieren wir den 
Wert, den wir später in’s B- 
Register laden, also die Zahl, 
die bestimmt, wie oft unsere 
Schleife durchlaufen werden soll. 

Zeile 140 ruft ein Uhnterpro- 
gramm im ROM auf, welches 
uns den Code einer gedrück- 
ten Taste in den Akku holt. 

in Zeile 150 laden wir den 
Anfang des ELGESHLFEISPEIEHEIE 
in das Registerpaar HL. 

Jetzt laden. wir endlich . das 


B-Register, mit der Zahl die 
bestimmt, wie oft die Schleife 
durchlaufen werden soll. 

Zeile 170 beginnt mit dem 
LABEL LOOP. Diese Zeile bil- 
det den Anfang unserer Schlei- 
fe und wir verwenden das LABEL. 
um diese Zeile später wieder 
anspringen zu können! 

Wir laden hier den Code der 
gedrückten Taste in die Spei- 
cherstelle, auf die HL zeigt. 
Wie wir wissen, ist das ja die 
erste Position unseres Bildschirm- 
speichers. In der nächsten Zei- 
te erhöhen wir den Wert von 
HL um eins, um die nächste 
Bildschirmposition zu erreichen. 

Jetzt kommt DJNZ! Das B-Re- 
gister wird um eins vermindert 
und da es jetzt noch nicht Null 
enthält, wird das Programm beim 
LOOP fortgesetzt. Unser Buch- 
stabe wird also wieder auf den 
Schirm geschrieben und HL wird 
wieder um eins erhöht. 

Das passiert solange, 
gleich Null ist. 

Dann wird Zeile 200 abge- 
arbeitet und das Programm wird 
mit Zeile 140 fortgesetzt. 

Sie müssen also wieder eine 
Taste tippen. 

So, jetzt noch die Aufgabe 
für das nächste Mal! 

Schreiben Sie bitte ein  Pro- 
gramm, das eine Zeile voll 1’, 
dann zwei Zeilen voll '2’. und 


bis B 



























Compute 


si Wir.machen Ihren Computer 
\ dialogfähig. 

%* Akustikkoppler 
% Exportmodems 
% Dialogsoftware 
%* Mailboxsysteme 

für CBM 64, 

Apple, IBM, Epson u.a. 


Telscommmications 
Beate Vollrathn Computer 


Bürosysteme; Kirchstr. 28, Tel. 02 09/20 92 91 
Heimcomputer: Kirchstr, 17, 4650 Gelsenkirchen 





rdialo 


per Telefon! 
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aufgezeichnet werden. Bei Ma- 
schinenspracheprogrammen hat 
es jedoch oft furchtbare Folgen. 
Mit einem kl. Schraubenzieher 
u. etwas Zeit kann man den Feh- 
ler beheben. Man legt die Cas- 
sette ein u. spult sie bis an den 
Anfang des scheinbar fehlerhaf- 
ten Programms. Nun drückt man 
die PLAY-Taste des Recorders. 
Wenn man nun einen Blick in die 
Aussparung im Recordergehäuse 
überhalb der Taste für „FAST 
FORWARD” (FF) wirft, sieht 
man die kl. Schraube, die den 


SKIZZE 1: 


Fehlerhaftes Laden: 


Y in de de B- 
Tee Test. E 


Bez 


EEEOHEELELITTSEHTBIIHSTEH DIN 






de Magnti”; 
bendes 


Korrektes Läden: 


Torkogf > 






Tonkopf festhält.(Skizze 2). Man 
führt nun den Schraubenzieher 
in die Aussparung ein und dreht 
die Schraube etwas nach links 
oder rechts. Beim Schrauben soll- 
te man aufpassen, daß man nicht 
zu sehr AUF die Schraube drückt, 
weil dadurch der Tonkopf eben- 
falls nach unten gedrückt wird. 
Wenn durch das Drehen der 
Schraube d. Zeiger d. „LEVEL 
-Anzeige sinkt, muß man in die 
andere Richtung drehen. Wenn der 
Pegei steigt, stimmt die Dreh- 
richtung. Den Drehvorgang an der 


Schraube setzt man solange fort, 
bis der Zeiger den Maximalwert 
erreicht, nachdem er wieder sinkt. 
Man stellt die Schraube auf den 
Maximalwert ein, dreht am „Laut- 
stärkerädchen‘ d. Recorders bis 
der Zeiger zwischen den Pegeln 
2 u. 3 ist und spult den Recorder 
wieder zum Beginn d. Programm- 
aufzeichnung zurück. Nun werden 
beim Ladevorgang wahrscheinlich 
keine Fehler mehr auftreten. Ich 
konnte mit der Methode 99% 
der scheinbar fehlerhaften Pro- 
gramme laden. 


SKIZZE 2: 





Recorder 
Gehäuse 
Aussparung mit 


E Tontup ff schraubt 
o 





Yorspar, in der fi er Uest in der ge 

di yamm aufst- ichnef ist 

zeichnet ist, Programm oufgezei s Recon? Ren ke eLAy Mezfer Erle 
Werner Tödter 


GROSS-klein 


Das folgende kurze Programm be- 
wirkt, daß die Umschaltung von 
Groß- auf Klein-Schrift beim 


Colour... Genie wie bei einer 
Schreibmaschine erfolgt, d.h. 
Kleinbuchstaben ohne ‚SHIFT', 


Großbuchstaben mit ‚SHIFT’. Bei 
allen: anderen: Zeichen: . ändert 
sich nichts. 


Funktionsweise des Programms: 


Die  Tastaturtreiberadresse: in 


10 
20 
30 
40 
so 
&0 


READ W:FOKE I,W 
NEXT 
CALL 4322 


. Tastaturtreiber 
sprungen: u... der ASCII-Code. der 
gedrückten Taste berechnet. Der 


4016H wird durch die Adresse 
TRADR des Unterprogramms er- 
setzt, sodaß bei jeder Tastatur- 
abfrage das Unterprogramm aus- 
geführt wird. Hier wird eine zu- 
sätzliche Rücksprungadresse auf 
dem Stack abgelegt. 

Danach wird zum eigentlichen 
im ROM::..ge- 


22. TO. %HAFZF 


Rücksprung erfolgt zur Adresse 
BACK, wo die ASCII-Codes von 
„AZ in die Codes von „a-z” 
u. umgekehrt umgewandelt wer- 
den. 

Die Eingabe des Programms 
lohnt: sich, wenn z.B. in einem 
BASIC-Programm sehr viele Texte 
geschrieben werden müssen. 

Hier: nun. das Programm, daß die 


kurze Maschinenroutine erzeugt: 


DATA 33,41,67,34,22,64, 201,2248,67,229,195,227,3,254 
DATA 65,216,254,91,56,6,254,97,216,254, 127,208, 258, 32,201 
RESTORE:FOR I=&H43 : 
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Der große Programmierer-Wettbewerb für alle 
Genie I, Il, 11, TRS 80 Mod.1 und Colour Genie Besitzer. 
Machen Sie mit — Gewinnen Sie mit! 


Unser letzter Wettbewerb hat bei 
unseren Lesern großen Anklang 
gefunden. So groß, daß wir heu- 
te einen neuen Wettbewerb star- 
ten. 

Diesmal können auch Colour 
Genie Benutzer mitmachen, weil 
wir zwei Wertungskategorien ein- 
richten. Einmal werden alle Co- 
lour Genie Lösungen gewertet und 
einmal alle Lösungen der Genie 
Computer. 

Es wird diesesmal auch zwei 
erste Preise geben, einen für den 
Colour Genie Sieger und einen für 
den Genie Sieger. 

Und die ersten Preise können 
sich sehen lassen! Auf die Sieger 
wartet je ein Creativision Tele- 
spiel= Computer, mit folgenden 





wicht, 
technischen Daten. Sen geut! 
— 16 Farben, N 


— hochauflösende Grafik, sch 
— 256x 192 Punkte, 
— 28x24 Zeilen Textdarstellung, 
— 4 Kanal PSG, 
— 6502A Prozessor, 2 MHz Takt, 
— 19K RAM. 
Das Gerät ist erweiterbar zum 
kompletten Home-Computer und 
bietet dann 48K RAM, Fioppy- 
Disc, Drucker, Basic usw. 

Und hier die Aufgabe: 
Stellen Sie sich ein Schachbrett 
mit 8x8 Feldern vor. Auf ein be- 
liebiges Feld wird nun ein Sprin- 
ger gesetzt. Dieser Springer muß 
jedes Feld des Brettes genau ein- 
mal betreten. Also kein Feld darf 
zweimal betreten werden und kei- 


nes darf ausgelassen werden. Ihr 
Programm soll nun die Züge für 
den Springer berechnen, der 
fahren darf, wie im normalen 
Schachspiel, also ein Feld vor und 
zwei zur Seite.oder zwei Felder 
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vor und eins zur Seite. 

Dabe! muß das Schachbrett und 
der Springer auf dem Bildschirm 
zu sehen sein. Ein Feld, das be- 
reits betreten wurde, muß auf dem 
Bildschirm kenntlich gemacht wer- 
den. Außerdem muß Ihr Pro- 
gramm am Anfang die Eingabe- 
möglichkeit für ein Startfeld ha- 
ben. Diese Eingabe erfolgt in der 
üblichen Schachnotation, also z. 
B. E5. Sollte Ihr Springer ein 
Feld zweimal betreten oder sollte 
sich Ihr Programm nicht laden las- 


sen,wird ihr Programm disquali- 
fiziert!| 

Überprüfen Sie also Ihre Casset- 
te vor dem Einsenden! 

Programme dürfen nur auf Cas- 
sette geschickt werden. Ausnah- 
me: 

Genie II} Programme! 

Diese können auf Diskette ge- 
schickt werden, aber da das Genie 
Ill doppelt so schnell läuft wie ein 
Genie | oder Il, werden die Genie 
IH-Zeiten verdoppelt. Die Zeit 
wird ab der Eingabe des Startfel- 


des genommen, und gestoppt, 
wenn alle Felder betreten wurden. 
Das schnellste Programm gewinnt! 

Ihre Lösung muß bis zum 
1.11.1984 bei uns eingehen, um 
gewertet zu werden. 

Der Rechtweg ist ausgeschlos- 
sen! 

Wir hoffen, daß wieder genau- 
soviele Lösungen eingehen, wie 
beim Maus-Wettbewerb, und wün- 
schen Ihnen viel Spaß! 





Een " 
1“ 


TED NZ SIE 
SHINE N i 











SUCHE VG.-Disk.-Station 
E. Knobelspieß, Gartenstr.31 
7750 Konstanz, 


WiENER sucht Partner 
für Programmtausch - Tape / 
Disk usw. CG. Werner Kam- 
per, Wien 23, Pölleritzergas- 
se 23/1/2/28 (PLZ 1230). 





SUCHE Kontakte zu As- 
sembleranfängern (Masch.- 
Progr.) - Wer hat noch Genie 
Data Nr. 1u.2? 

Tel, 0228/224353. 





32 K-COLOUR GENIE + 
Software + Cassettenrec. + 
Bücher verkauft Knud Hansen 
Waldeck 4, 2300 Kiel 1, 
Tel. 0431/522064, VB 900.--. 





SUCHE C.G.-Floppy 
U. Mast, W.-Maybachstraße 9, 
7303 Neuhausen. 





COLOUR :GENIE: EG::2000 
32K Ram, Rec.,Literatur; 
Software, Preis um 750,-- DM 
Tel. 0541/122901. 





TRS 80 Pgm.-Tauschliste an 
Nimzik, Himmelgeister - 19 
4047 Dormagen 5 





VERKAUFE TRS 80 1, 48K, 
Umlaute/Kleinschr., Drucker 
DMP 100, 
floppy Doubie Dens., NEW- 
DOS 80/2 - GDOS, Assemb- 
ler, versch.Software, Litera- 
tur, für 4000,- DM. Peter 


Steinz, Allendorfer Str. 40 
6000 Frankfurt 50. 





WER schreibt mir gg. Ver- 
gütung ein Listschutz-Progr. 
für CG? H, Schumacher, 
Eichstr, 40, 42 Oberhausen, 





SUCHE preisw. Literatur zu 
Z 80 Masch.-Programmierung 
u. alles über CG, Drucker 
usw. H.-J. Winterscheid, Ben- 
nauerstr. 1, 5300 Bonn 1... 





COLOUR GENIE 32 K mit 
Floppy, Literatur u, vie} Soft- 
ware u. Sonstiges. NP 2.600,- 
für 1.800 VB. / Tel. 02207 
3391. 





VERKAUFE CG-Fioppy VB 
900,- DM. A. Kleinschmidt, 
18-20 Uhr, 07731/23909, 
Singen. 





GENIE |-Progr. auf. Cassette 
zu: verk.t: Alles..m,. Beschrei- 
bungen:: Liste. anf. Hires- 
:Grafic-. Monitore usw. usw. 
Billig: M.: Schuster, Pfauen- 
str. :11, '7920 Heidenheim. 





PROGR.: Eproms: {nicht nur 
CG),..-,50/1kByte' +: Porto; 
Tel. 040/7213696 





CG: ROBOT 20,-DM, Su- 
peraction H. Kristen,. Hauns- 
pergerstr. 11, 8229 Laufen. 





SUCHE guten Tauschpartner 
für VG .- Interessenten. 


N EHE 





Bitte anrufen: 


02129/4891 
ab 18 Uhr. Wer hat Hambur- 
gersam + Pinguin? 





COLOUR  GENIE Super- 
Forth, Info 0,80DM M.Mai- 
ers, Am Hang 1, 2352 Bor- 
desholm 











Bluhm, Anthurienweg 11, 
4700 Hamm 4. 


SUCHE defekte Genie I+Hl. 
P. Spieß, 8859 Rennertsho- 


fen t. 





VERKAUFE CG-Software, Die nächste 
W. Kutter, !llerstr. 18 GENIE DATA 
8961 Wiggensbach Srscheintam 
VERKAUFE f. Genie 3003 1.12.1984. 
Video u. CPU-Platine sowie 

Tastatur + EG 3014/Div. Anzeigen- 
Kabel/SW-Monitor Fon En R 
Tel. 05127/879. RS LESEINN 

ist der 

VERKAUFE CG-Software 6.11.1984 
wegen Aufgabe. Info g. Rück- 

porto, H.J. Berg," Sonnen- 


str. 153, 5600 Wuppertal 2. 





VERKAUFE Colour Genie 
32°. K:+ :Software,. Bücher, 
P: Gerke, 0551/77887. 





SUCHE Macro-80 für VG 1. 


Kauf. 0... Tausch, Weinstein, 
0721/6853668 





WEGEN: Umstieg. verkaufe ich 
Genie:.l m. vielen Progr. 


ws. Büchern, Monitore, Progr. 


a, Cassette u. Disk,, alles sel- 
bstverständl, m. Handbüchern 
u.. Beschreibungen. Liste gra- 
tis! M. Schuster, Pfauenstr.11 
7920 Heidenheim. 





SUCHE CG-Software, Peter 


In der nächsten 
GENIE DATA 
finden Sie unter 
anderem: 
Start der Serie 
Kampf den 
Spaghetti, 
Spooler, 
Basic-Toolkit, 
Genie 16 
Software. 
Und vieles 
andere. 


HOME - COMPUTER 


LASER 210/310 HOME COMPUTER 


LASER 210 Color Home Computer 299 ,-- DM 
LASER 310 Color Home Computer, 18K RAM 399,-- DM 
16K RAM Expansion 
16K RAM Expansion für LASER 310 
84K. RAM Expansion für LASER 210/310 
Drucker Interface für LASER 210/310 
2 Joysticks incl. interface für LASER 210/310 
Lightpen für LASER 210/310 
Disk-Controller mit Disketten Laufwerk 
für LASER 210/310 
ROM-Listing LASER 210/310/VZ 200 
PP 40 4-farb Printer Plotter 
PAKET 1, bestehend aus: 
LASER 210 + 16K RAM + Controller u. Floppy Disk + 2 
Joysticks \ nur DM 1098,--!1} 
PAKET 2, bestehend aus: 
LASER 210 + 64K RAM + Controller u. Floppy Disk + 
Drucker interface + PP 40 Printer Plotter 

nur DM 1798,--!11! 


149,-- DM 
298,-- DM 
98,-- DM 
75,- DM 
68,-- DM 


648,-- DM 
55,- DM 
549,-- DM 


LASER 2001 HOME COMPUTER 


LASER 2001 Color Computer 
16K RAM Steckmodul 
Drucker-Kabel 


149,-DM 


2 Joysticks mit Interface 

Coleco Adapter 

Disk-Controller mit Disketten Laufwerk 
Software-Paket {5 Cassetten} 


LASER 3000 PERSONAL COMPUTER 


— Apple*-Software kompatibel — CP/M** Software kom- 
patibel (mit Z 80 Erw.) — 64K RAM (erweiterbar bis auf 
192K RAM) — 32K Microsoft*"* Basic — 40. oder 80 Spal- 
ten Textdarstellung — Centronics Schnittstelle — 4 Kanal 
Geräuschgenerator — 592x192 Bildpunkte mit 6 Farben — 
280x192 Bildpunkte mit 8 Farben —:81: Tasten — Video, 
RGB oder TV Ausgang — 6502 A CPU:mit 2 MHz Takt — 
viel Peripherie lieferbar 

LASER 3000 Personal Computer 
Floppy-Controller für 2 Laufw. 
Floppy Laufw. FD-100 

TV Interface PAL 

Drucker Kabel Pi-40 

Z 80 Steckmodul 

RS-232 Interface 

2 Joysticks 

CP/M”” Diskette u, Manual (Vers; 2,2) 
Soft Emulator Platine 

Soft Emulator Steckmodul 

128K RAM 

RGB-Monitor-Kabel 

DOS 3.3, Disk mit Handbuch 
Technical Reference Manual 

LASER DOS 1, System:Disk 


1698,-- DM 
218,-- DM 
598,-- DM 

76,-- DM 
75,- DM 
245,-- DM 
198,-- DM 
79,-- DM 
748,-- DM 
245,-- DM 
245,- DM 
auf Anfrage 
38,-- DM 
79,-- DM 
29,-- DM 
79,-- DM 


* Apple = eingetr. Warenzeichen von Apple Computer Inc. 
*# CP/M = eingatr. Warenzeichen von Digital Research Inc. 
“** Microsoft = eingetr. Warenzeichen von Microsoft Inc., USA 


Für alle hier angebotenen Rechner ist vis! Software liefer- 
bar. Informieren Sie sich! it 


Bestellungen an: 

RALF M. HÜBBEN, MÜHLBACHSTRASSE 2, 5429 
MARIENFELS/TS. 

VERLAG FÜR COMPUTERTECHNIK 


EBERLE EINSERSTLRTETSICERTRCREAR BEER 


REINER ISTSERSACENEDRESETSEDTEISEHÄBESIEHHERE 
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Sprachausgabe 


Nach der letzten.GENIE 
DATA, in der wir das: Colour 
Genie zum sprechen :brach- 
ten, haben wir eine‘;Vielzahl 
von Änrufen und Briefen’ er- 
halten. Es wurde bemängelt, 


seo 


daß man die Sprach-Routine 
nicht ohne weiteres mit ei- 
nem normalen Assembler ein- 
geben konnte. Deshalb haben 
wir das Programm so geän- 
dert, daß es problemlos per 


28048 18 ORG 
‚48908 F3 28 DI 
4801 ZIFFBF 38 LD 
48984 08688 48 LD 
48086 DBFF 58 IN 
48088 CB47 88 BIT 
A80A 2884 78 IR 
4880C. : 88 88 NOP 
480D:: 37 98 SCF 
488E 1803 189 IR 
4818 .A7? 118 AND 
4811: 1888 128 IR 
4813: CBIE 138 RR 
4815:  3AFF47 148 LD 
4818 3D 158 DEC 
4819. 28FD 168 IR 
481B° 85 178 DEC 
481C 2807 188 JR 
A481E 88 198 NOP 
48ıiF DD7E®8 288 LD 
4822 088 218 NOP 
4823 18E1 228 JR 
4825 2B 238 DEC 
48256 7C 248 LD 
4827 FES2 258 CP 
4829 28D9 268 JR 
482B FB 278 EI 
482C C3191A 288 JP 
482F 08849 298 ORG 
4988 F3 388 DI 
4981 2AFFBF 319 LD 
4984 0688 329 LD 
4986 . 4E 338 LD 
4987... CB19 348 RR 
4999: 3885 358 JR 
.::498B 28 368. NOP 
4986. 3E08 378: LD 
:499E 1884 388: JR 
4918 3EBF 398 LD 
4912 ..1898 488 JR 
4914 :D3F9 418 OUT 
49158. 3AFF47? 429 LD 
4919 3D 438 DEC 
491A 28FD 448 IR 
49iC 85 450 DEC 
491D 2886 468 IR 
49ı1F 08 478 NOP 


.C 


Assembler eingetippt werden 
kann. Die Erläuterungen zum 
Programm finden Sie in der 
letzten GENIE DATA. 


ASBBH 


HL,&OBFFFH 
B,88H 
A,caFFH) 
8,A 
2,A81®H 


4813H 

A 

4813H 
CHL) 
A,CA7FFH) 
A 
NZ,A4818H 
B 


2,4825H 
A,CIX+@OH) 


4886H 

HL 

A,H 

62H 
N2,4884H 


1A19H 
4988H 


HL,@BFFFH 
B,@8H 
C,cHL) 


C,4910H 


A,Q60H 
4914H 
A,OFH 
AS1AH 
COFSH),A 
A,(C47FFH) 
A 
NZ,4919H 
B 

2,4925H 









CREATIVISION: Das 
spiel - Der Homecomputer. 


CREATIVISION ist ein Telespiel der drit- 
ten Generation, was für Sie heißt: Tech- 
nisch Top! Mit CREATIVISION erhalten 
Sie ein Gerät, daß schon über Speicher und 
Tastatur verfügt. Nur noch die Basic-Cas- 
sette einstecken,. und Sie haben einen, pro- 
grammierbaren Computer. Floppy-Disc und 
Drucker können Sie auch benutzen! Und in 
der Grundversion haben Sie ein faszinie- 
rendes Telespiel, das keine Wünsche offen 
läßt! Mit vielen tollen Spielen! 

Und hier die Preise: 

Creativision, Grundgerät* nur 249,— DM 
Daten-Recorder 178,— DM 


* Lieferumfang: Creativision-Grundgerät, 2 Joysticks mit Tastatur, Netzteil, 


TV-Anschluß, Anleitung 





intelligente Video- 











48,— DM 
98,— DM 
159, DM 
148,— DM 


Basic Interpreter.| 
Große Tastatur 
Drucker Interface 
Basic Interpreter II 
Spiele auf ROM-Modul 
Tank Attack, Sonic.;invader,. Tennis, Auto 
Chase, Police Jump, Air Sea Attack, Cra- 
zy Chicky, Deep. .Sea Adventure, Mouse 
Puzzle, Astro. Pinball, Chopper Rescue, 
Locomotive per Stück nur 89,— DM 
Lieferbar nur solange Vorrat reicht! Be- 
grenzte Stückzahl! 
Sofort bestellen bei: Ralf M. Hübben, Ver- 
lag für Computertechnik, 5429: Marien- 
fels/Ts. : 







12132615.) UI IT 2 AU 


700 





RER WS 


Daten: 16 Farben, 256x192 Punkte, 28 Zeilen mit 24 Zeichen, 3 Tonkanäle, I 
Rauschkanal, 6502A CPU mit 2 MHz Takt, 19K RAM 
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4928 DD7E®8 488 LD 
4923 18E2 498 JR 
4925 2B 508 DEC 
4925 7C 518 LD 
4927 FES62 528 EP 
4929 28D8 538 IR 
492B FB 548 EI 
492C C9 558 RET 
492D 9B4A 568 ORG 
4488 F3 578 DI 
4A81 DBFF 588 IN 
4483 CB47 598 BIT 
485; 2808 8889 JR 
4487: 88 818 NOP 
4A08 S3EOF 628 LD 
AABA DSF 638 OUT 
4A8C C3Q14A 648 JP 
4A8F 3E88 858 LD 
A4Al1l CI3BOA4A 668 JP 
4A14 879 END 


A,CIX+@BH) 
4987H 

AL 

A,H 

62H 
NZ,4984H 


4ABOH 
A,(CeFFH) 


8,A 
2,4AB8FH 





A,öFH 
(OFSH),A 
4AB1H 
A,90H 
AABAH 
1A19H 


ASSENBLIERT VON COLOUR GENIE SUPER-ASSEN 








Zunächst möchten wir von. der. 
GENIE DATA uns bei allen, die 
an unserer Fragebogen-Aktion 
mitgemacht haben recht herzlich 
bedanken! 

Wir haben jeden ausgefüllten 
Bogen ausgewertet, und werden 
versuchen, uns in den kommen- 
den Ausgaben verstärkt nach 
Ihren Wünschen zu richten, da- 
mit die GENIE DATA Ihnen in 
Zukunft noch besser gefällt. 

So, jetzt hier die Ergeb- 
nisse der Auswertung. 

Zunächst einmal die Frage nach 
den Computern, die Sie besit- 
zen, die Verteilung sieht wie 


folgt aus Genie I + Il = 26%, 
Genie Ill = 4,3%, Colour Ge- 
nie = 60,8%, TRS8O Mod. 1 


= 8,6% und 4,3% besitzen einen 
anderen Tandy. Als familien- 
fremde Computer wurden die 
verschiedensten genannt, aber nur 
hin und wieder mal einer. Im 
großen und ganzen zeichnet sich 
hier eine große Systemtreue der 





GENIE DATA - Leser ab. 

Und. womit befassen sich die 
GENIE DATA - Leser am mei- 
en 

52,1% mit Hardware, 65,2% mit 


Spielen, 60,9% mit Geschäfts- 
programmen und 69,6% mit ande- 
rer Software. 

Jetzt‘ zur Peripherie: Hier hat 
uns sehr erstaunt, daß offenbar 
mehr Leser einen Drucker haben, 
als eine Diskettenstation. Wir wer- 
den also: in Zukunft einige Pro- 
gramme mehr bringen, die sich 
mit Druckern befassen. Die Ver- 
teilung. im einzelnen sieht wie 


folgt aus. 
Drucker: 56,5%, Floppy Disk: 
39,1%," Light Pen: 8,9% und 


Joysticks. 34,8%. 

Da 65,2% der GENIE DATA - 
Leser gerne Erweiterungen für 
ihren Computer basteln, werden 
wir uns hiermit in Zukunft auch 
etwas mehr befassen! 

WIR MÖCHTEN NUN ALLE 
BASTLER AUFRUFEN, ÜBER 





IHRE SELBSTBAUTEN ARTI- 
KEL ZU SCHREIBEN, und uns 
diese zu schicken! 

Bei der eingesetzten Software 
gab es für uns eine Riesenüber- 
raschung. Wir waren natürlich 
davon überzeugt, daß Spiele hier 
der absolute Renner wären, aber 
weit gefehlt! Sehen Sie sich die 
Verteilung an: 

Spiele = 69,6%, Textverarbei- 
tung = 73,9%, Fibu = 13,0% und 
Kalkulation = 30,7%. 

Anregungen und Ideen wurden 
uns etliche mitgeteilt. Einige Gute 
und einige Schlechte. Wir hof- 
fen, daß Sie Verständnis dafür 
haben, daß wir hier nicht alle 
aufzählen können. Wir werden 
aber die guten Ideen verstärkt 
in unsere Arbeit einfließen las- 
sen und der eine oder andere 
Einsender wird bald seine Idee 
verwirklicht finden. 

GENIE DATA REDAKTION 
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Catharina Stodden 





Programme, um den Klein- 
schriftmodus bei den Genie- 
Computern Genie I, Genie I 
und Colour Genie umzudre- 
hen, gibt es ja eigentlich ge- 
nug. Warum noch mal das 
gleiche Thema? Erstens, um 
einmal zu verdeutlichen, wa- 
rum und wie es eigentlich 
kommt, daß die Genie-Com- 
puter in der Grundversion auf 
einfachen Tastendruck groß, 
bei Shift und Taste erst 
kleinschreiben und zweitens, 
um einige Hilfen zu geben, 
“ dieses leidige Softwareprob- 
lem anzugehen. 

Der Leser hat richtig 
verstanden. Es handelt sich 
nicht etwa um ein Problem 
der Hardware (das könnte 
man ja noch verstehen!), son- 
dern um die Software im 
ROM (dem Betriebssystem 
des Computers). Nimmt man 
sich nämlich ein ROM-Listing 
zur Hand, in dem das Be- 
triebssystem ausführlich auf- 
gelistet und erklärt ist, so 
können sich einem manchmal 
die Haare sträuben, wie 
gewisse Betriebsroutinen an- 
gelegt sind. 

Es scheint, daß einige 
Softwarelösungen mit Absicht 
so geschrieben wurden, daß 
dem sehr ernsten Anwender 
(z. B. Textverarbeiter) später 
nichts anderes übrig bleibt, 
als auf die Erweiterungen für 
den Computer zurückzugrei- 
fen, um kleine, aber manch- 
mal doch sehr störende 
Eigenheiten des Systems wie- 
der auszubügeln. Dies gilt 
auch in gewissem Maße für 
die Hardware eines Compu- 
tersystems, wie beispielswei- 
se mein Artikel in der GENIE 
DATA Nr. 4 zeigt. Mit einem 
wirklich minimalen Aufwand 
wird hier der Einbau von vier 


weiteren Tasten in die Tasta- 
tur beschrieben, so daß sich 
die deutschen Umlaute direkt 
erreichen lassen. 


Doch nun zurück zu unse- 
rem eigentlichen Thema. Für 
die, die über kein ROM-Li- 
sting von einem der drei Ge- 
nie-Computer verfügen, 
möchte ich grob auf die Ta- 
staturabfrage bei den oben 
genannten Systemen 
eingehen. Das Prinzip ist für 
alle drei Systeme gleich. 
Dies ist nicht verwunderlich, 
da der Genie I und der Genie 
H direkte Nachfahren 
(Kopien) des guten alten TRS 
80 Computers sind. Dieser 
Computer hat auch in 
Deutschland ein Stück Micro- 
computer-Geschichte mitge- 
schrieben und zählt eigent- 
lich längst zu den Veteranen 
der Microcomputer. Dank 
seines guten Konzepts (vor 
allem seiner Software) 
erlebte er in den Genie-Com- 
putern eine Renaissance, die 
sein Betriebssystem fast un- 
verändert übernahmen und 
lediglich eine bessere Hard- 
ware darumbauten. Leider 
wurden allerdings auch viele 
Schwächen des Betriebssy- 
stems mit übernommen. 

Eine  Weiterentwicklung 
des Betriebssystemes stellt 
das ROM des Colour Genie 
dar. Bei Vergleich der ROM's 
des Colour Genie und des 
Genie I oder II ergibt sich, 
daß das Colour Genie fast 
die gleichen Adressen der 
einzelnen Routinen benutzt 
wie seine „Brüder". Besonders 


auffallend ist dies bei den’ 


Befehlen Set und Reset. Sie 
befinden sich bei allen drei 
Systemen im ROM an fast 
der gleichen Stelle. Während 
bei Genie I und II der Befehl 


für das Setzen, bzw. 
Rücksetzen, eines Grafik- 
punktes verantwortlich ist, 


bewirken sie beim Colour 
Genie das Setzen, bzw. 
Rücksetzen eines Bits in ei- 
ner bestimmten Adresse. 
Auch das Prinzip und der 
Aufbau der Tastaturabfrage 
ist bei allen drei Systemen 
fast identisch. Der jeweilige 
Computer trennt die Tasten 
nach Buchstaben, Ziffern und 
Sonderzeichen und nach Kon- 
trolltasten. In jeweils geson- 
derten.. Teilprogrammen wird 
der. zugehörige ASCH-Code 
errechnet und einem Register 
der CPU. (Zentraleinheit = 
Mikroprozessor) zur weiteren 
Verarbeitung übergeben, So 
steht der ASCH-Code der je- 
weiligen Taste am Ende im 
sog. Akku (Register A der 
CPU). .i 

Bei. der. Behandlung von 
Buchstaben : wird es jetzt 
endlich für unser Ausgangs- 
problem interessant. 

Hier erfolgt nämlich eine 
Abfrage, ob'zu dem gedrück- 
ten Buchstaben auch die 
SHIFT-Taste betätigt wurde. 
Und siehe da, bei gedrückter 
SHIFT-Taste wird .der sog. 
„Lower. Case! erzeugt, was 
nichts "anderes bedeutet, als 


daß der ASCII-Code eines 
Kleinbuchstaben erzeugt 
wird..Bei nicht betätigter 


SHIFT-Taste hingegen wird 
Großschrift erzeugt. 

Hier fragt man sich zu- 
recht, warum dies so sein 
muß. Kann man denn diese 
Routine nicht so anlegen, daß 
bei SHIFT Großschrift er- 
zeugt wird? 

Man kann! Nämlich durch 
die Abänderung eines Maschi- 
nensprachebefehls. Hierdurch 
wird die oben erklärte Abfra- 
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ge umgedreht, sodaß der „Lo- 
wer Case" jetzt ohne SHIFT- 
Taste erzeugt wird. 

Aber wie kann man ein 
doch unveränderliches ROM 
abändern? 

Hier sind die Besitzer ei- 
nes EPROM-Programmierers 

dran. Denn EPROM's 
Höschbare Festspeicher) las- 
sen sich nach belieben ändern 
und anstelle der ROM's in 
den Genie Computer einset- 
zen. Der EPROM- -Typ für 
alle drei behandelten Compu- 
ter ist ein 2532-EPROM. 
Es handelt sich um einen 4 
KByte Speicher, von dem 
sich im Colour Genie vier, 
im Genie I und II jeweils drei 
befinden. 

Für die Programmierung 
geht man am besten folgen- 
dermaßen vor: 

Die entsprechende Stelle, 
die geändert werden muß, 
befindet sich bei allen drei 
Genies im ersten ROM. 

- Bei Genie I, II auf Adresse 
0413H 

- Beim Colour 
Adresse 044CH 

Auf dieser Adresse befin- 
det sich der Wert 30H bzw. 
48 dez. Er verzweigt das 
Programm, wenn keine 
SHIFT-Taste gedrückt ist. 
Dieser Wert, übrigens auf al- 
len drei Systemen gleich, 
muß in 38H bzw. 56 dez. 
umgewandelt werden. Jetzt 
verzweigt das Programm bei 


Genie auf 


'h., die Abfrage wurde ein- 


fach umgekehrt. Kleine Ver- 
änderung - große Wirkung! 
Am..besten schreibt man 
zu Beginn der Prozedur in ei- 
nen freien Speicherplatz des 
RAM (Benutzerspeicher) den 
Wert 33H. bzw. 56 dez. mit- 
tels Poke-Befehl. Günstig ist 
es dabei, wenn diese Spei- 
cherstelle vorher geschützt 
ist, damit dieser Wert nicht 
durch irgendwelche Umstände 
verlorengeht. Dann wird das 
ROM I bis zu der Adresse in 


ein EPROM 2532 kopiert, die 


vor: dem zu ändernden Byte 
steht. Die nächste EPROM- 
Adresse. wird mit dem Wert 
33H. aus der RAM-Speicher- 
zelle programmiert. Der Rest 
des .EPROM's wird wieder 
mit dem entsprechenden Teil 
aus dem ursprünglichen ROM 
programmiert, sodaß an- 
schliessend im EPROM eine 
genaue Kopie der ersten 4 
KByte des ROM's steht, mit 
Ausnahme der einen Adresse. 

Das EPROM sollte erst 
dann: für das jeweilige ROM 
in das Gerät eingesetzt wer- 
den,. wenn alle Adresseninhal- 
te überprüft worden sind. Die 
meisten EPROM-Program- 
mierer gestatten dies. Nach 
dem Einbau kann wie bei ei- 
ner normalen Schreibmaschi- 
ne mit der SHIFT-Taste 
groß- ansonsten klein Be- 
schrieben werden. Auf die 
Erkennung von Basic-Befeh- 


nerilei Einfluß, da das Be- 
triebssystem der Genie-Com- 
puter intern alle Kleinbuch- 
staben, die. nicht in Anfüh- 
rungszeichen stehen, in Groß- 
buchstaben umwandelt. Um 
dies zu Veranschaulichen, ge- 
ben Sie im Direktmodus fol- 
gendes ein: 
>1d goto 146 
Wichtig! Das „goto" 
klein geschrieben sein. 
Nun listen Sie das Minipro- 
gramm! Es erscheint nun: 
16 GOTO 1dd 
Wie man sieht, ist das „goto" 
jetzt groß geschrieben. Co- 
lour-Genie-Besitzer müssen 
sich allerdings daran ge- 
wöhnen, daß auch die Funkti- 
onstasten, die auch als Buch- 
staben behandelt werden, 
sind. 

brigens finden sich im 
Betriebssystem des Colour- 
Genie an einigen Stellen 
Freiräume, in die eventuell 
kleine eigene:.Routinen Platz 
finden könnten. Weiterhin 
könnte man bestimmte 
Adressen des Betriebssyste- 
mes abändern, um bestimmte 
Effekte nach dem Einschal- 
ten des Gerätes zur Verfü- 
gung zu haben. 

Sie sehen, ein Blick in ein 
ROM-Listing lohnt sich. 

Ich hoffe, ich konnte ei- 
nige Anregungen bieten, und 
zeigen, daß auch in der 
Grundversion eines Compu- 
ters mit oftmals geringen 


muß 





gedrückter SHIFT-Taste, d. len hat diese Umkehrung kei- Mitteln einiges erreicht wer- 
den kann. 
e 1 
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Ab sofort finden Sie in der GENIE 
DATA auch Programme für Genie 
16. Den Anfang machen wir in 
dieser Ausgabe mit zwei Listings. 
Das Erste (3D-Grafik) erzeugt den 
Funktionsplott einer Funktion 
dreidimensional auf dem Bild- 
schirm. Das Zweite (Der Hummel- 
flug) spielt das gleichnamige Lied 
von R. Korsakov vermittels des 
PLAY-Befehls. 

Gleichzeitig möchten wir alle 
Genie 16 Besitzer zum Mitmachen 
anregen. Wenn Sie Programme 
oder Tips haben, schicken Sie die- 
se an uns! Honorar pro gedruckte 
Seite: 50,-- DM. 


Hummelfl 


18 ELS 

ı15 PLAY"TISA” 
18 PLAY "ml" 
28 PRINT”Der Hummelflug” 

38 READ A$: IF A$<>"weiter” THEN PLAY A$ 


Si IF Ag=Mmeiter" 


MAI 


CLS 
= KEY OFF:SCREEN 1,8: F=2 
38 ON ERROR GOTO 1888 
48 LINE (8,8)-(8,199),2 
58 LINE (8,8)-(319,0),2 
68 LINE (319,8)-(319,199),2 
78 LINE (319,199)-(8,199),2 
88 FOR D=-3 TO 3 STEP „25 
9a FOR E=-3 TO 3 STEP .85 
188 A=D:B=E 
118 C= SXC(SINCANZ2+B"Z233/CAN2+BR2)) 
128 IF C>=B THEN F=1 
139 IF C>=2 THEN F=3 
148 V=,52:U=.3 
158 X=COS{V)xA+SINCUVIXB 
168 Y=CO5CW&CCOSCVIKB-SINCVIKAI+SINCWIKC 
ı78 PSET (168+X*39,98-Yx20),F 
188 F=2 
198 NEXT E:NEXT D 
1888 RESUME 





THEN RESTORE !PL=PL+i 


32 IF A$="weiter"THEN IF PL=2 THEN END 


18 GOTO 398 





IMAAA DATA e1Iß,e-16,d16,d 16,d16,d-16,c16,03,b16 
1818 DATA 04,c16,03,b16,b-16,a16,a-16,916,g9-16, f16 
1828 DATA ei6,e-18,d16,d-16,d18,d-18,c16,02,b16 
1838 DATA 03,c18,02,b16,b-16,a16,a-168,g916,g-16,f16 
1848 DATA ei16,e-16,d16,d-16,d16,d-16,c18,01,b16 
1858 DATA o2,el&,e-16,d16,d-18,d18,d-16,c16,01,b16 
1868 DATA o2,e16,e-16,d16,d-16,c16,fi6,el6,e-16 
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1878 DATA eil6,e-16,d16,d-16,c16,c+16,d16,dr16 

1888 DATA e16,e-16,d16,d-16,c16,f16,el6,e-16 

1898 DATA el8,e-16,d16,d-16,c16,c+16,d16,d+16 

1188 DATA el6,e-16,d16,d-16,d16,d-16,c16,01,b16,02 
1118 DATA c16,c+t16,d16,d+165,e16,f16,e16&,e-16 

1128 DATA ei6,e-16,d16,d-16,d16,d-16,c16,01,b16,02 
1138 DATA c16,c+16,d16,d+16,e16,f16,f+16,g+16 

1148 DATA al68,a-16,916,9-16,f16,b16,a16,a-16 

1158 DATA al6ß,a-16,g16,g-16,fi6,f+16,g16,g+t16 

1168 DATA al6ß,a-16,916,9-16,fi16,b-16,al6,g+16 

1178 DATA ai6b,a-i16,g16,9-16,fi6,f+168,galß,yriü 

1188 DATA al6,a-16,916,9-16,916,9-16,fi6,el6 

1198 DATA f16,fjr18,918,9+18,al6,b-16,al8,g+16 

1288 DATA ail6,a-18,916,9-16,916,9-16,f16,e1l6 

1285 DATA ms 

1218 DATA fi1i6,f+16,g918,g9+16,2a16,b-16,al6,g+16 

12280 DATA 03,a16,02,a186,01,a16,02,a156,01,a16,02,2a16,01,a16,02,a156 

1238 DATA o1,b-16,02,a16,01,b-16,03,b-16,01,b-16,02,al6ß,0o1,b-16,03,b-186 
1248 DATA al6,a16,01,a16,03,a16,01,a16,03,al6,01,a16,03,a1l6 

1258 DATA o1,b-16,03,al6,01,b-16,04,b-16,01,b-16,03,a16,01,a16,04,b-16, 

mi 

1269 DATA al6,p16,pP8,03,a16,b-16,ail6,g+16 

1278 DATA ai6,b-16,a1l6,9+16,a16,b-16,al6,g-16 

1288 DATA a16,b-156,b16,04,c16,c+16,c16,03,b16,b-16 

1298 DATA al6,b-16,b16,04,c16,c+16,c16,03,b16,b-16 

13808 DATA ms 

1318 DATA a16,d16,02,d16,03,d16,02,d168,03,d16,02,d16,03,d16 

1328 DATA 01,9-16,03,d16,04,9-16,01,9-16,03,d16,01,9-16,04,e-156 

1338 DATA d16,d16,01,d16,04,d16,01,d16,04,d16,01,d16,04,d16 

1348 DATA otl,e-16,04,d16,01,e-16,05,e-186,01,e-16,04,d16,01,e-16,05,e-16 
1358 DATA m1,d8,p8,03,d16,e-16,d16,c+15 

1368 DATA d16,e-16,d16,c+16,d18,e-16,d16,c+16 

1378 DATA diS,e-15,e16,fi16,f+16,f16,eiß,e-16 

1388 DATA di6,e-15,e16,f16,f+r16,f16,ei6,e-165 

1398 DATA d16,c+r156,c16,02,b16,04,pl6,e-16,d16,c+16 

1488 DATA di16,c+156,c16,03,b16,b-16,516,04,c16,c+t15 

1418 DATA di16,d-16,c16,03,616,04,c16,03,b186,b-16,a1l6 

1428 DATA b-16,b16,04,c16,c+16,c16,c+16,d156,d+16 

1430 DATA ei6,e-16,d16,d-16,d16,d-16,c16,03,b16 

1448 DATA 04,c16,03,b16,b-16,al6,a-18,916,9-16,f16,e16,f16,el6,d+16,eil68 
‚fi16,ei6, 

1458 DATA E16,F16,E£16,D+16,E16,F186,E16,D16,E16,F16,E18,D+16,P16,02,F16, ! 
E16,E-186 ; : 

1468 DATA elS,f16,el6,d+t16,el&,f16,e16,d+16 

1478 DATA el6,e-16,d16,d-15,d16,d-16,c186,01,616,02,c16,01,b16,b-16,al6, 
a4 £ 

1488 DATA a32,a+t32,a32,a+32,a32,a+32,a32,a+32 \ | 
14988 DATA a32,a+32,332,a+32,a32,a+32,a32,a+32 : 
15088 DATA 04 

1518 DATA e32,f32,e32,f32,e32,f32,e32,f32 \ 
1528 DATA e32,f32,e32,f32,832,f32,e32,f32 . : 
1521 DATA oi 

| 1522 DATA a32,a+32,232,4+32,332,a+32,a32,a+r32 
! 1523 DATA a32,a+32,a32,a+32,a32,3+32,a932,a+32 
Ä 1538 DATA 04 - j 

‘ 1549 DATA e32,f32,.32,f32,e32,f32,e32,f32 

= 1558 DATA e32,f32,e32,f32,e32,f32,e32,f32 
2. 1568 DATA o2,ms,a8,aß,mi 

1578 DATA weiter 
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Schachprogramme ehrwürdiges 
Alter von fast fünf Jahren zu- 
rückblickt. 

Letztlich fiel dem Verfasser 
dieses Artikels doch ein geeig- 
netes Programm ein. Es handelt 
sich um das von William A. Fink 
geschriebene Programm SFINKS, 
das seit etwa zwei Jahren in ame- 
rikanischen Computer-Zeitschrif- 
ten für die längst ausgelaufenen 
Modelle 1 und 3 der Firma Tandy- 
Radio Shack {TRS-80) angeboten 
wird. Die Version SFINKS 4.0 
erfüllt zumindest von der Form 
her alle Bedingungen, die man 
an ein gutes Schachprogramm 
stellen sollte, wie Stellungsein- 
gabe, Druckerunterstützung und 
die Möglichkeit zum Abspeichern 
von unterbrochenen Partien. 

Da der Autor „rechtmäßiger” 
Besitzer von SFINKS ist, bot 
sich ein Wettkampf zwischen 
GRANDMASTER und SFINKS 
an. Wenn SFINKS auch chan- 
cenlos sein würde, so könnte er 
dem übermächtigen Gegner doch 
die eine oder andere gute Par- 
tie liefern. Möglicherweise hätte 
SFINKS auch einmal Glück und 
könnte mit einem Remis ent- 
schlüpfen! 

Die Vorbereitung: 
Ein Commodore-Besitzer mit 


GRANDMASTER-Programm war 


schnell gefunden. Nachdem sich 
ein befreundeter Computer-Händ- 
ler bereit erklärt hatte, für den 
Wettkampf um den Titel „Welt- 
bestes Schachprogramm für Heim- 
computer” seine Räumlichkeiten 
zur Verfügung zu stellen, stand 


dem geplanten Vergleichskampf 


nichts mehr im Wege.Anstelle des 


altersschwachen Tandy-Rechners‘ 


des Autors wurde ein Gerät .Vi- 
deo-Genie EG 3003 eingesetzt, 
das mit dem TRS-80° software- 
kompatibel ist. Nun mußten nur 
noch die Spielbedingungen ausge- 
handelt werden. 

Eine ungerade Anzahl von Wett- 
kampfpartien war von vorne her- 
ein ausgeschlossen, weil auch 
Schachcomputer {wie menschliche 
Schachspieler) häufiger mit den 
weißen als mit den schwarzen Fi- 
guren gewinnen. Deshalb einigten 
sich die Beteiligten vorerst auf 


eine Zahl von vier Partien. 

Das größte Problem ergab sich 
bei der Festlegung der Bedenk- 
zeit, die den Computern pro Zug 
zur Verfügung gestellt werden 
sollte. Da die vorgegebene Bedenk- 
zeit die Qualität des Spiels ent- 
scheidend: beieinflußt, mußte auch 
hier eine: möglichst gleichmässige 
Verteilung.auf beide Rechner vor- 
genommen: werden. 

Wenn zwei Turnierspieler eine 
Partie spielen, wird immer eine 
feste Zeit für eine bestimmte An- 
zahl von Zügen vorgegeben. In der 
Regel sind dies zwei Stunden für 
40 Züge. Dabei bleibt es den Spie- 
lern überlassen, wie sie sich diese 
Zeit einteilen. Sollte ein Spieler 
für die . Berechnung einer mehr- 
zügigen . Kombination eine volle 
Stunde verbraucht haben, wird er 
danach. trachten, diese Zeit bei der 
Abwicklung durch schnelleres Zie- 
hen wieder aufzuholen. 

Das Programm SFINKS besitzt 
einen. solchen Turniermodus. Wie 
beim menschlichen Spieler wird 
hierdurch die Spielstärke erheb- 
lich. : gesteigert, weil der Compu- 
ter sich... die Rechenzeit selb- 
ständig : einteilen kann. Die für 
die Durchrechnung einer Kombi- 
nation aufgewendete Zeit wird 
im. Verlauf einer Partie wieder 
eingespart. 

GRANDMASTER hingegen ver- 
fügt über zehn verschiedene Spiel- 
stufen, wobei die einzelnen Stu- 
fen: RELATIVE Zeitvorgaben 
darstellen. Dies bedeutet, daß der 
Computer auf Stufe 6 {ungefähr 
drei Minuten Bedenkzeit) mög- 
licherweise schon nach wenigen 
Sekunden zieht. Er kann aber 
auch bei schwierigen Stellungen 
die Vorgabezeit von drei Mi- 
nuten ganz erheblich überschrei- 
ten. Diese RELATIVE Zeitvorga- 
be ist derart ungenau, daß eine 
gleichmäßige Verteilung der Zeit 
auf beide Rechner rein zufällig 
wäre, selbst wenn beide Rechner 
dass GRANDMASTER-Programm 
geladen hätten. a 

Das Programm SFINKS hat nun 
neben dem erwähnten Turniermo- 
dus (40 Züge in zwei Stunden) 
noch die Möglichkeit einer ABSO- 
LUTEN Zeitvorgabe pro Zug. 


Diese Vorgaben sind entweder be- 
stimmten Spielstufen (Level 1-7) 
zugeordnet oder können in einem 
Intervall von zwei Sekunden bis 
zu 60 Stunden gezielt festge- 
legt werden. 

Folgende Alternativen 

standen zur Wahl: 

Turniermodus SFINKS gegen 
Stufe 6 GRANDMASTER (ca. 
3 Minuten pro Zug) 
* 3 Minuten absolut SFINKS 
gegen 3 Minuten relativ GRAND- 
MASTER 

* 3 Minuten absolut SFINKS ge- 
gen 3 Minuten absolut GRAND- 
MASTER. 

Bei der ersten Variante könn- 

ten die Computer nicht nur 
weitgehend selbständig agieren, sie 
hätten auch die Möglichkeit, 
schwierige Stellungen mit einer 
höheren Rechentiefe zu analysie- 
ren. Eine völlig gleichmäßige Ver- 
teilung der Zeit auf beide Rech- 
ner wäre hierbei allerdings nicht 
möglich, weil GRANDMASTER 
eben nur eine RELATIVE Zeit- 
vorgabe zuläfßt. 
Die zweite Variante wurde allge- 
mein abgelehnt, weil allein das 
Programm GRANDMASTER die 
Möglichkeit hätte, kompliziertere 
Stellungen gründlich durchzurech- 
nen. SFINKS dagegen berechnet 
bei einer festen Vorgabe von drei 
Minuten - zumindest im Mittel- 
spiel - höchstens fünf Halbzüge 
im voraus. 

Die letztgenannte Variante er- 
gibt sich dadurch, daß man 
GRANDMASTER auf einer hohen 
Spielstufe (z.B Stufe 8) spielen 
läßt, den Denkprozeß jedoch 
nach drei Minuten manuell ab- 


* 


bricht. Dieses „Abwürgen” ist 
durchaus legal, weil der Com- 
puter nach drei Minuten be- 


reits weitgehend (Shannon A- und 
B-Strategie) selektiert hat und 
denjenigen Zug spielt, den er bis 
zu diesem Zeitpunkt als besten 
Zug erkannt hat. 

Nach Abwägung aller Vor- und 
Nachteile einigte man sich schließ- 
lich auf diesen zuletzt beschrie- 
benen Spielmodus, der beiden 
Computern die gleiche Rechen- 
zeit von drei Minuten (absolut) 
zubilligt. Man behielt sich jedoch 
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vor, in einem weiteren Wett- 
kampf die erste Variante aus- 
zuprobieren. 

Abschließend kam noch die 
Regelkunde der Programme zur 
Sprache. Es war bekannt, daß 
GRANDMASTER entgegen der 
Schachregeln bei einer Bauern- 
umwandlung nur eine DAME 
akzeptiert, was durchaus nicht im- 
mer (Pattsituation) im Sinne des 
Spielers ist. SFINKS läßt dage- 
gen eine Unterverwandlung durch- 
aus zu. Da alle Beteiligten der Mei- 
nung waren, daß diese seltene Si- 
tuation bei den vier vereinbarten 
Partien nicht eintreten würde, 
konnte das Turnier nun endlich 
beginnen. 

Der Wettkampf. 

Schon in der ersten Partie zeigte 
sich eine der großen Schwächen 
von Computerschachprogrammen 
nämlich die Schwierigkeiten, um 
nicht zu sagen das Unvermögen, 
bei der Behandlung des Endspiels. 
GRANDMASTER spielte als An- 
ziehender die Abtauschvariante 
der spanischen Partie und verlor 
im Verlauf des Mittelspiels ins- 
gesamt drei Bauern. Trotz dieses 
Vorteils konnte SFINKS das zu- 
gegebenermaßen schwierige End- 
spiel mit ungleichfarbigen Läu- 
fern nicht gewinnen. Nach 76 Zü- 
gen wurde die Partie abgebro- 
chen und als unentschieden ge- 
wertet, weil Schwarz offensicht- 
lich keinen Gewinnweg fand 
(siehe Bild 1). 

Stand: GRANDMASTER gegen 


SFINKS 05:05. 
Die zweite Partie wurde dann 
wesentlich interessanter. Auch 


SFINKS spielte jetzt mit den wei- 
ßen Figuren die spanische Er- 
Öffnung. Aus der modernen Stei- 
nitzverteidigung heraus entwicke- 
te sich ein turbulentes Mittel- 
spiel, SFINKS drängte GRAND- 
MASTER in die Defensive und 
behielt nach einer gewaltigen Ab- 
tauschorgie einen gesunden Mehr- 


1. Partie - 
i E2Z-EA E7-E5S 
2 G61-F3 BE-CA 
Ss Fi-B5S A7-A& 
4 BS-C6 D7-C6 


bauern. 

Diesmal war an der Endspiel- 
führung ausnahmsweise nichts aus- 
zusetzen. Den Zug 56. ... Th7 
- d7 begleitete SFINKS mit dem 
Kommentar "++", was schlicht 
"Gewinnstellung” bedeutet. Nach 
weiteren 13 Zügen wurde der ar- 
me Großmeister” dann matt- 
gesetzt. 

Stand: SFINKS gegen GRAND- 
MASTER 1,5:0,5. 

Auch die dritte Partie gewann 
SFINKS recht eindrucksvoll. 
GRANDMASTER hatte 

das Blumenfeld-Gambit nicht 
in seiner Eröffnungs-Bibliothek 
und geriet rasch in entscheiden- 
den Stellungsnachteil, Im Mittel- 
spiel glänzte SFINKS mit eini- 
gen hübschen Kombinationen, die 
beinahe zu einem spektakulären 
Matt des weißen Königs in der 
Brettmitte (siehe Bild 2) ge- 
führt hätten. Im Mehrbesitz von 
Turm und Läufer war der Rest 
dann nur noch eine Frage der 
Zeit. 

Stand: GRANDMASTER gegen 
SFINKS 0,5 : 2,5. 

Obwohl die Entscheidung damit 
bereits vorzeitig gefallen war, 
strengten sich beide Programme 
in der letzten Partie noch ein- 
mal mächtig an. In einer un- 
regelmäßigen Damenbauerneröff- 
nung ging SFINKS (Weiß) auf 
Bauernraub aus. Als GRANDMA- 
STER versuchte, die weiße Dame 
zu fangen, wagte er sich mit 
beiden Türmen von der achten 
Reihe, Das daraufhin drohende 
Matt konnte er dann nur 'noch 
durch das Opfer eines Springers 
verhindern. 

Im weiteren Verlauf der Partie 
kostete ein weißer Freibauer auch 
noch den letzten schwarzen Turm. 
Der vorgerückte weiße König 
und der weiße Turm drängten 
schließlich den schwarzen König 
rücksichtsios an den Rand und 
setzten ihn matt. 


Weiß: GRANDMASTER / Schwarz 
5 D2-D4 2 E5-D4 
6 F3-D4 2 C&-C5 
7 D4-F3 DB-Dir 
8 Ei-Di CB-E& 


Eine Schlußbetrachtung: 

Die Werbung „weltbestes Schach- 
programm" hat sich also als 
echter Flop erwiesen. Wenn der 
Verfasser auch nicht verhehlt, daß 
er sich über den eindeutigen 
Sieg von SFINKS gefreut hat, war 
der Ausgang des Wettkampfes 
für ihn keine Überraschung. Da- 
für waren die Voraussetzungen 
von der Hardware her zu ungleich. 


GRANDMASTER läuft auf 
Commodore-Rechnern mit den 
Prozessoren 6502 {VC 20) 


oder 6510 (Commodore 64), die 
beide, deutet man die spärli- 
chen technischen Informationen 
richtig, nur mit einer Frequenz 
von etwa einem Megahertz ge- 
taktet sind. SFINKS wurde für 
Tandy-Computer geschrieben, die 
immerhin {Model 1) eine Takt- 
frequenz von 1,7 Mhz aufweisen. 

Selbst wenn die Höhe der 
Taktfrequenz auch keine absolu- 
ten Rückschlüsse auf die Rechen- 
geschwindigkeit zuläßt, ist 
GRANDMASTER noch aus einem 
anderen Grund benachteiligt. 
SFINKS benötigt einen Speicher 
von 48 KByte, wohingegen das 
Progamm GRANDMASTER mit 
nur 8 K auskommt. Dies ist auch 
eine Erklärung für das begrenzte 
Eröffnungs-Repertoire und die so 
schmerzlich vermißte Möglichkeit 
einer Stellungseingabe. 

Vielleicht gibt es noch mehr 
Entschuldigungen für das schlech- 
te Abschneiden von 
GRANDMASTER. Eines läßt sich 
aber mit Sicherheit sagen: 
GRANDMASTER ist NICHT das 
beste Schachprogramm der Welt 
für Heimcomputer! Solche Be- 
hauptungen - sollte man in der 
Werbung unterlassen. Sie sind 
unseriös und fordern den Wider- - 
spruch geradezu heraus! 

Quod erat demonstrandum! 


: SFINKS 


9 C1-65 H7-H6 

10 '65-D2 GB-F& 
11 Bi-C3 EB8-CB 
12 E4-ES F6-D5 
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13 C3-D5S Eö-D5S 35 E1-62 DS-D4 
14 FS-H4 67-65 36'6G2-F4 EB-E7 
15 HA-FS FB-67 37 F4-E2 D4-E4 
16 Hi-Ei NH8-E8 38 E2-C3+ E4-E5 
17 E1-E3Z 65-64 37 D2-F4+ ES-D4 
186 F3-E1 67-E5 40 C3-E2+ D4-D5 
19 E1-DI ES-H2 41 E2-CS+ DS-E& 
20 ES-ES: D8B-E8 42 C3-E2 E7-D7+ 
21 62-63 C5-C4 43 F4-D2 Eö-ES 
22 D3-Ei HA-HS5 44 DI-C1i F7-E& 
23 A2-A4 C8-D7 45 D2-F4 ES-E4 
24 Ai-AZ H2-61 46 E2-C3t+ E4-D4 
25 D2-E3 D7-E& 47 C3-E2+ D4-DS 
2, F2-F3 G1-H2 48 E2-C3+ D5-Ch 
27 F3-G4 H5-64 49 B4-B5S A6-BS 
28 ES-F4 Eö-D7 50 A4-BS C6-B& 
29 A3-C3 H2-6G1 51 A3-A4 F2-DA 
30 B2-B4  G1-F2 52 C3-E2 Bö&-BS 
3sı F4-D2 D7-C5 53 E2-D4+ D7-D4 
32 C3-A3 F7-F5 54 A4-A3 BS-C6 
33 A3-C3 DS-F7 SS A3-ES D4-E4A 
34 CI-A3Z C6-DS 56 C1-D2 E&-D5 





Endlich verfügbar!!! 


MODEM-ANSCHLUSS FÜR GENIE - COMPUTER 
Nutzen auch Sie Ihr Genie zum „Hacken’”’ I}! 


Modem Anschluß, Hard- und Software, anschlußfertig für 

Colour Genie (bei Bestellung altes ROM 4 einschicken!!!) 115,00 
Genie I/II, TRS 80 165,00 
für jeden Akustikkoppler oder Festmodem, mit Kabel und umfangreicher 
Software z.B. Up-/Download von BASIC-Programmen, Speicher- und Druck- 
möglichkeiten (bei Bestellung Typ und gewünschten Datenträger angeben). 
Akustikkoppler AK 300 mit FTZ Zulassung 549,00 
Automodem mit eingebautem Telefon (nur für Export) 565,00 


SUPER DRUCKER / Schreibmaschine für Colour : brother EP 44 
3k Buffer, Schönschrift 18x24 Punkte, Display 15 Zeichen, transportabel, 


Thermo- und Normal-Papier, Rolle und Einzelblatt, anschlußfertig 849,00 
Colour Genie mit 32k RAM 498,00 
Colour Genie mit 32k RAM und RGB Karte 598,00 
Einhandjoystick für Colour und Genie I/l} komplett 39,00 
Einhandjoystick Quickshot II für Colour/Genie I/Hl 59,00 
Staubhauben für. 

Colour Genie, Genie !/ll, star Drucker 25,00 
Genie Ill arten 45,00 


FRAGEN SIE DIE 
SPEZIALISTEN!!! 


'kbj data-systems 


Heinz Keppef 


Odenthaler Staße 136 
Postfach 200567 _ 
5060 Bergisch Gladbach 2 
Telsfon (0 22.02) 3 88 84 





57 ES-E4 
58 02-065 
57 D2-ES 
60 ES-D4 
61 D4-ES 
62 F4-65 
635 BS-H& 
64 HA-E3+ 
65 ES-D4 
65 D4-A7 
67 A7-DA 
68 D4-A7 
67 A7-D4 
70 D4-ES 
71 ES-D4 
72. D4-97 
73 A7-D4 
74 DA4-A7 
75: A7-D4 
‚78. D4-E3 


BILD 2 


DS-E4 
E4-D5 
B7-BS 
DS-E4 
EA-DS 
C4-65 
D3-E4 
C5-C06 
E4-C2 
U2-DS 
DS-Bi 
C&-B7 
Bi-E4 
B7-C6 
E4-DS 
D3-C2 
Cc2-31 
Ch-B7 
Bi-E4 
B7-CA 





Stellung nach dem 24. Zug 
von Weiß (3. Partie) 





BILD 1 
; Stellung nach dem 76. Zug 


von Schwarz {1. 


Partie} 





l 


im Ori 


Seite fehlt 


igina 














RE 
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318 
3208 
338 
348 
358 
360 
378 
388 
398 
488 
418 
4208 
438 
448 
458 
468 
478 
488 
498 
588 
516 
' 528 
538 
548 
558 
568 
578 
588 
>98 
508 
518 
6528 
6538 
540 
658 
868 
578 
658 
598 
728 
rı8 


738 
748 
750 
788 
7r7o 
788 
798 
888 
818 
828 
830 
8408 
858 
880 
878 
8838 
898 
928 


PRINTI;TAB(C4)”. Runde (”;D$SC13;,")” 


PRINT 

PRINT"SPIELFREI: ";TABC2U)IT$CI) 
PRINT 

FOR Y=1 TO (T2-13/2 

N=I+Y:IF N>TZ2 THEN N=N-T2 
NN=TZ+I-Y:IF NN>TZ THEN NN=NN-TZ 
IF Y/2=INT(Y/2> THEN 418 


PRINTTSCNI;TABC1S5I” --—- "7;T$SCNNI:GOTO 428 
PRINTTSCNNI; TABC1SI" --- ":T$CN 

NEXTY 

PRINTS928 ,"DRUCKERAUSGABE <J/N>” 


A$=INKEY$: IF A$=""THEN 440 

IF A$<>”J" THEN 588 

REM **%* DRUCKERAUSGABE DER RUNDEN 
LPRINT I;TABC4)”. RUNDE (?;D$CI);»)» 
LPRINT P------- 4444422244 ” 





LPRINT"SPIELFREI: ";TABC2B8IT$CI) 
LPRINT 
FOR Y=1 TO (T2-1)/2 


N=I+Y: IF N>TZ THEN N=N-T2 
NN=STZ+1-Y: IF NN>TZ2 THEN NN=NN-T2 


IF Y/Z=INT(Y/2) THEN 568 
LPRINTTS$SCNI;TABC153” --—- ";TSCNNI:GOTO 578 
LPRINTTSCNNI;TABC1SI”" --- ";T$CN) 

NEXT Y 

NEXT I 

END 

REN xxx PAARUNGEN BEI GERADER TEILNEHMERZAHL 
ELS 

FOR I=1 TO T2-1 

ELS 

IF I=1 THEN H2=T2 ELSE H2=1 

PRINTI;”. Runde C"r,DSCI),P)r 

ERINT PS SISTERS EEE EP FEER PAGE HERR ” 
PRINT 

IF I/2=INTC1/2) THEN 788 
PRINTTSCHZ3;TAB(153" --- ";:T$C12:G0OTO 718 
PRINTT$SC1);TABC1SI" --— ":TSCHZ2) 

FOR Y=1 TO T2/2-1 


N=I+tY: IF N>TZ THEN N=N-TZ+l 
NN=T2+1-Y-1:IF NN>TZ THEN NN=NN-TZ+1 


IF Y/2=1INT(CY/2) THEN 768 
PRINTTSCNI;TABC1SI” --—- ":TSCNND:GOTO?77A 
PRINTTSCNND; TABC153” -—-- "3 TSCN) 

NEXTY 

PRINTS928 , "DRUCKERAUSGABE <J/N>”" 


AS=INKEY$S: IF A$=""THEN 798 

IF AS<>"J” THEN 9508 

REM xxx DRUCKERAUSGABE 

LPRINTI;". RUNDE (9, DECI), "7 

LPRINTFSr==S22= 2-22 22 Sommers en anni a 
LPRINT 

IF I/2=INTCI/23THEN 878 
LPRINTTSCHZI;TABC15)3” --- ";T$C1):GOTO 889 
LPRINTTSC1);TABC1ISI”" --- "7, TSCHZ) 

FOR Y=1 TO T2/2-1 

N=I+Y:IF N>TZ2 THEN N=N-T2+1 

NN=T2+1I-Y-1:1IF NN>TZ2 THEN NN=NN-TZ2+1 


URERILURLUMÜCHEEREURHENEETENSERINERNNSIRENEN 








918 
928 
938 
948 
958 
9658 
978 
988 
998 
1888 
1818 
1928 
1838 
1948 
1858 
1868 
1999 
5aB® 


NEXT Y 
NEXT I. 
END 


CLS 


LPRINT 


NEXT I 
RETURN 


PRINT"BITTE UARTEN - 
LPRINTCHR$SC14) "TEILNEHMNERLISTE" 
LPRINTCHR$ (14) "=======-=-.=2z=2 ===) 





IF Y/2=INT(Y/2) THEN 938 
LPRINT T$CN);TABC15)” --—- 
LPRINT TS$SCNNI;TABC15)I” --- 


FOR I=1 TO K-1 
LPRINTI;:TAB(4)"”. 


":;T$CI) 


Die Maus 
istraus 


HIER EINIGE ZEILEN 
DES SIEGERS 
IM 
PROGRAMMIERER- 
WETT-BEWERB 
Zunächst zur Person: 

Ich bin 25: Jahre alt und zur 
Zeit als Elektroniker bei der 
Bundeswehr: : beschäftigt. Meine 
Hobbys sind. die Elektronik im 
Allgemeinen und: die Computer- 
technik im Besonderen. 

Doch nun zum Programm: 

Das Prinzip des: Programmes ist 
folgendes: Bewegt man sich in ei- 
nem Labyrinth: und ‚bleibt dabei 
immer mit einer':Wand in Be- 
rührung, so kommt:'man auto- 
matisch zum Ausgang: FÜR DIE 
MAUS HEISST DAS IM PRO- 
GRAMM: 

Bei jeder Abzweigung wenn mög- 
lich nach rechts, sonst geradeaus 


gehen. 
Da der Eingang bekannt ist 
(0,2), muß die erste Bewegung 


der Maus nach (1,2) erfolgen. 
Von hier aus kann nur nach 


rechts oder nach unten gegangen 
werden, je nach Labyrinth. 

Daher wird in Zeile 100 über- 
prüft, ob der Punkt (1,3) ge- 
setzt ist. Wenn ja, so erfolgt 
eine Bewegung nach rechts (Zei- 
le 103}, wenn nein, eine Bewe- 
gung nach unten (Zeile 101) 

Die Zeilen 101-107 werden 
nach einem Check auf die mög- 
liche Richtung angesprungen. Die 
Maus wird jeweils um einen 
Schritt in der entsprechenden 
Richtung bewegt. 

Dann erfolgt der Test, in wel- 
che Richtung jetzt gegangen wer- 
den muß. Ändert sich dabei 


die Richtung nicht, wird” "in 
die gleiche Zeile 
ansonsten wird die der neuen 


Richtung entsprechende Zeile an- 
gesprungen. 
Den Rücksprung in die gleiche 
Zeile habe ich mit: einer FOR 
NEXT-Schleife realisiert, da ich 
nach eingehendem Studium des 
ROM-Listings herausfand, daß der 
Rücksprung mit NEXT um eini- 
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".T$CNN):GOTO 948 
":TSCN) 


REN *x%* DRUCKERAUSGABE BER TEILNEHNERLISTE 


DER DRUCKER ARBEITET !" 


REM xxx DATA-ZEILEN DER TEILNEHNMER 
DATA ENDE 








SEINE En 
Norbert Muskatewitz 


ges schneller ist als mit einem 
GOTO. 

Die folgenden Programmzeilen er- 
füllen den Zweck, wenn mög- 
lich, unnötige Wege zu vermei- 
den. 


BEISPIEL 1: Erreicht die Maus 
die X-Position 121, springt sie 
sofort zum X-Wert 122 und 


läuft jetzt entlang der Außen- 
wand weiter. 

BEISPIEL 2: Die Maus be- 
wegt sich bei Y=41 nach rechts 
und es besteht die Möglichkeit 
nach unten „abzubiegen”. Jetzt 
wird überprüft, ob der Punkt 
(x+2,43) gesetzt ist. Ist der 
Punkt nicht gesetzt, wird die 
Maus direkt nach (x,44) gebracht, 
sonst wird so getan, als wäre 
die Abzweigung nach unten nicht 
vorhanden. 
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ZUR GESCHWINDIGKEIT: 
Durch den POKE-Befehl wird 
die Tastaturabfrage ausgeschaltet 
(ca. 5% Geschw.-Gewinn). 

In den Zeilen 1-90 kommen 
mir zu viele Variablen vor (mein 
Programm benötigt nur zwei). 
Daher das CLEAR-Statement, ge- 
folgt von DEFINT a,b. Je weni- 
ger Variablen vorkommen, desto 


schneller kann sie der Inter- 
preter in der Tabelle finden. 
Und mit Integers läßt’s sich 
eben schneller rechnen als mit 
den sonst angenommenen Single- 
Preeisions. 

ANSONSTEN: - die schon oben 
erwähnten FOR-NEXT-Schleifen - 
die die Verwendung von ELSE- 
Statements - die Tatsache, daß 


Wand ziehen 


3, Y)=-1THENGOTO1S 


ti CLS 

2 DNERRORGOTO2& 

3 FORI=0T0122:SET (1,.0):SET(1,45):NEXTI 
4 FORI=0T045:5ET (0, DI sSET(123, DI sNEXTI 
Sy 

& NEXTX1 

7 FORYi=0T0455TEFS: FORX1=0TO122STEFS 

8 IFFOINT (X1,.Y1) THENX=X1: Y=Y1: GOSUR11 

9 NEXTX1:NEXTYI 

10 G0OT090: 

11° Ab gesetztem Punkt, 

12 Zei 

13. R=RND (4) 

14 Z=Z+1: IFZ=10THENZ=1: RETURN 

15: IFR=1THENIFFOINT (X-3, Y)=-1THENGOTOITS 
i& IFR=2THENIFFOINT (X+ 

17 IFR=ZTHENIFFOINT (X, Y-D) =-1THENGOTOIS 
i8 IFR=4THENIFFOINT (X, Y+2) ==-1THENGOTOIS 
1? FORI=1T03 

20 IFR=1THENX=X-1 


21 IFR=ZTHENX=X+1 
22 IFR=STHENY=Y-1 
25 IFR=4THENY=Y+1 
SET(X.Y) 


RESUME1S 


NEXTI:Q=RND (3) s IFO=1 THENGOTO1SELSESOTOIS 


RESET (0,2) RESET (123,48) 
100 CLEAR: DEFINTA, B:A=1:B=2: 


(0,2)s IFFOINT(A,B+1) 107 
101 FORB=B+1T047: RESET (A,B-1):SET(A,B) s IFB=431IFFOINT (A-1,B)I RESET 
{A,B) ı B=B+1: G6DOTD10OSELSE1ZOELSEIFNOTPOINT (A-1,E) 107ELSEIFFOINT (A, 


B+1) 103ELSENEXT 


FOKE16406, B2:SET (0, 


IF-THEN Vergleiche schneller ab- 
laufen, wenn die Bedingung nicht 
erfüllt ist. Soviel zum Programm. 
Das ich gewonnen habe, freut 
mich natürlich sehr! 
Meine Anregung: Öfter mal was 
in der Art!!! 
Mit freundlichen Grüßen 
NORBERT MUSKATEWITZ 


FORX1=0T0O122STEF$: IFFOINT (X1,45) THENX=X1: Y=45: 60SUR11 


ab 100 startet ihr Maus-Frogramm!!! 





2):5ET(A,E) :RESET 


10% FORA=A+1TD127: RESET (A-1,B) ıSET (A,B) s IFA=m121THEN11SELSEIFNOTF 
DINT (A,B+1) IFB=41 THENi 1BELSE101ELSEIFPOINT (A+1 ,B) 10SELSENEXT 

105 FORB=B-1TOOSTEF-1:RESET{A,B+1)ı5ET(A, B)  IFNOTFOINT (AH, B) 103 
ELSEIFFOINT (A, B-1) 107ELSENEXT 
107 FORA=A- -1TDOSTEP- 11 RESET (A+1,B) 1 SET (A,B) ı IFNOTFOINT (A, B--1) 125 
ELSEIFFOINT (A-1,B) 101ELSENEXT 
115 RESET (A,B) sA=A+1:SET(A,B) : IFA=123POKE16406, 227: END 

116 IFB=44RESET (A,B) :B=B-1:8ET (A,B) :6G0TO11SELSEFORB=B+1T04%: IFPO 
INT (A+1,B) RESET (A, B-1) SET (A,B) :NEXTELSERESET (A,B-1) SET (A,B) BGO 


TO115 
1iB IFFOINT (Ar 


2. 43) =SOTHENRESET (A,B): 


BeB+T; 


SET (A,B) :GOTDIOSELSERE 


SET(A.B) =A=A+121IFPOINT (A+1,B) =OTHENIOSELSE1O0S 
120 IFFOINT (A-2,B-1) =OTHENI1O7ELSEI FFOINT (A+2,44) RESETtA,B) ı Ami 
ı GOTD1OSELBEREBET (A, BE) ı B=B+11G60T0103 


125 IFFOINT(A,B-4) IFFOINT (A-1 


„B-2) IFNOTFOIST (A-2,B) RESET (A,B) ısA= 


A-13 GDTO1OFELSEIFE=4IRESET (A,B) : B=44: GOTO1OZELSEIFPOINT (A-2,B) RE 
SET(A,BI sA=A-1:60T0101. 


126 GOTD105 
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EN 
al) alas‘ 


> 
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* 


X 
KERHND 


x 


cs 
es 





RX 
Sa? 
3 


ERKR 
IR 


TRAMPOLIN ist ein Geschicklich- 
keits-Spiel, bei dem man ein Tram- 
polin so bewegen muß, daß ein 
Männchen an die Luftballons an 
der Decke springt. - Das Basic- 
Programm verfügt über eine An- 
leitung, Rekordliste und gesperr- 
te BREAK- und RESET-Tasten. . 


FR 
IR 


GC 
Deus 
Pl 


IR, 
RER, 


KR 
[x%5 


- 


Funkte: M Faoanus: 1955 Runde: & 


MARTAELENLISTE fuer TRERMPOLIN 
10 REMRKRKKKK EEE KK | = 


28 RENK* Trampolin * A,Rl Hiltsvarisble 

38 REN fuer Colour-Genie * BE Banuspunkte 

48 REIN* von Thomas Wagner * N Anzahl der kekordnaner 

58 REN# 2.8.1984 x Hi Rekördpunkte 

560 REMKKKKKKKKKKKKKKKKK KK KK KK ER X F Hilfzvariable 

78 REN#x#x* BREAK UND RESET SPERREN xxxx| FP Punkte 

88 POKE16396, 239: POKE16812,118 FZ Furkte pro Runde 

S® REMxxxkxkx% DATAS FUER ZEICHEN x#kKkxxx | RP Rundenposition des Daches 
188 DATAt,1,1,1,1,1,1,1 RR  Rurde 

118 DATA128,128,128,128,128,128,128,128| R% hwrizantsle Richtung des Spr 
128 DATA2408,63,15,19,16,16,586,56 RY  wertiksle Richtung des Spr. 
138 DATAB,255,255,255,80,8,9,8 SZ Anzahl der Springer 
148 DATA15,252,248,200,8,8,28,28 V Flag fuer Ripple-sort 

158 DATAQ,56,124,76,204,76,56,24 %85  harizarntsle Fasition des Spr 
168 DATA124,156,28,24,63,33,33,224 AL Position des Lasufers 

178 DATAQ,0,8,69,36,68,60,24 YS  wertikale Position des Spr 
188 DATA126,153,153,24,36,36,36,195 ZL  Schrittzaehler des Lasufers 
198 DATA124,158,28,24,20,18,280,32 ZZ Flag fuer Anleitung 

208 DATA126,153,153,24,36,39,32,192 

218 DATA126,153,153,24,36,228,4,3 A Hilfzvariable 

228 DATAO,8,0,9,0,143,159,255 Hi$ Rekordnamen 





238 DATA15,56,124,124,254,254,124,56 
248 FORA=8TO111:READAA:POKELHFABB+A,AI:NEXT 

258 CLEAR2898: CLEAR: DINMN1$C9),N1C9):FORA=8TOY: NISCAI=STRING$SC15,32):NEX 
T 

2569 REMAXKKKKKKKKKK Vorgrafik KKKKKtKrK 

270 POKE&H49899,8: POKE164198,7:POKE16499,7:CLS:COLOUR11:PRINTS15, "Trampol 
in": COLGUR3:PRINTSTRING$S(48,217) 

288 COLOUR1:A$="Deine Aufgabe ist es,ein Trampolin mit den zwei Pfeilt 
asten links und rechts so ueber den Bildschirm zu steuern, dass d 
er Springer die oben haengenden Luftballons trifft. ":GOSUB1359 

298 PRINT:A$="Doch im Laufe der Zeit kommt die Decke immer tiefer und 

der Seitenwind ver- staerkt sich.*":GOSUB1359 

388 PRINT: PRINT: PRINT”"Dein Trampolin:";:COLOURil:PRINTCHRS(C138) ;CHRS$(C13 
13;CHRSC1323:COLOUR1:PRINT:PRINT"Der Springer: "; :COLOUR6: PRINTCHR$(C136) 
;:COLOURS: PRINTCHRS(27); CHR$S(C24) ; CHR$SC135) 

318 COLOUR1:PRINT:PRINT:PRINT"Ein Ballon: *"; :COLOUR11:PRINTCHR$C141); CHR 








38 GENIE DATA 





$(15); 

328 COLOURRND(C16):GOSUB1399:PRINTSY62,"Waehle Deine Sprunghoehe (1-9)"; 
!A$=INKEYS: IFA$=""THEN32O 

338 RR=ASCCASI-48: IFRR<ITHENRR=1ELSEIFRR>SITHENRR=9 

348 S52=5:PP=8:P2=B 

358 REM#x#x%* HAUPTGRAFIK DARSTELLEN x*%* 

368 BB=8088+RR#288: RP=RR*49+49:CLS:COLOURS: PRINTS888,STRING$(40,211); 
378 FORA=RP+125TORP+154STEP2:COLOURRNDC16):PRINTSA,CHR$(C141);:PRINTSA+I 
‚„EHRSC1Y91)Y;: NEXT 

388 AS=CHRSC128) +CHR$SC193T7I+CHR$SC129) 

398 COLOUR18: FORA=8ETOS48STEP48:PRINTSA,AS; :PRINTSA+37,AS$S; :NEXT 

488 PRINTS41,CHR$(244); :PRINTS78S,CHR$(244); 

418 A$=CHR$(226):B$S=CHR$(228): PRINTSRP+2,A$; :PRINTSRP+37,B$; 

428 PRINTSRP+122,CHR$(226); 

438 PRINTSRP+84,CHR$(128)3;STRING$(398,218);CHR$C129); 

448 COLOUR3: PRINTSRP+4,STRING$(32,282); 

458 PRINTSRP+3,B$; :PRINTSRP+36,A$; 

468 PRINTSRP+44,B$; :PRINTSRP+7S5,A$; 

47Q@ PRINTSRP+45,STRING$S(38,282); 

488 COLOUR13: FORA=RP+STORP+35STEP4: PRINTSA,CHRFCZBZICHR$C282); :NEXT 

498 FORA=RP+45TORP+?75STEP4:PRINTSA,CHR$SC282)ICHR$(C282); :NEXT 

588 COLOURS:PRINTS886,CHR$(133); :COLOURS: PRINTS846,CHR$(137); 

518 COLOUR1:PRINTS9Y68, "Punkte: ”; :PRINTS976, "Bonus: ";BB; :PRINTS9Y9, "Rund 
e:";:PRINTUSING”##";RR; :PRINTS45, "Springer:”; 

528 COLOURS:PRINTS886,CHR$(133); :COLOURS:PRINTS8456,CHR$C137); :COLDUR11: 
PRINTS843,CHR$(138) ;CHR$SC131); CHR$C132);, :COLOURS: PRINTSS4,STRING$(CSZ,13 
6); :COLOURS: PRINTS14,STRINGS$S(SZ,1359; 
538 FORA=8B 1 TORP+A41STEP-4B 

54ß COLOURS: PRINTSA,CHR$(135); 

558 COLOURS: PRINTSA+48,CHR$(138); 

568 FORA1=1TO18B: NEXT 

578 PRINTSA+48,CHR$(139);:GOSUB1338 
588 FORA1=1T098:NEXT 

598 COLDUR18:PRINTSA+4B8,CHR$(197); 

8688 NEXT 

818 PRINTSRP+41,CHR$(19?); 

6298 REMxxxx#Xkkxk HAUPTSCHLEIFE Xxxxx 
838 XS5=3: YS=RR+2:RY=1:XL=843:RX=9:ZL=i 
648 GOSUB18S8 

858 GOSUBSBDO 

6568 GOSUB18S98 

678 BB=BB-5: IFBB<1THENBB=8 

888 COLOURRND(16):PRINTS967,PP+P2+x58;:PRINTS982,BB; 

8698 GOSUB8BEOBO 

788 IFPZ=1STHEN?73®8 

7ı8 GOTO648 

728 REMxx#**** RUNDE UEBERSTANDEN *xX*%* 

738 GOSUB1348: FORA=8TOS58: GOSUB1388:COLOURRND(15):PRINTSS23,"Sie haben d 





ie”";RR;". Runde gemeistert !t";:GOSUB1388:NEXT 
748 FORA=8T0O58:COLOURRNDC16):PRINTSS23, "Jetzt wird es aber schwieriger 
ttttt 9”,,GOSUB1388:NEXT:PRINTS928,CHR$S(C30); 


758 RR=RR+1:PP=PP+BB+P2+59:P2=9:52=52+1 

768 IFRR=14THENRR=1:PP=PP+5088: FORA=8TOSB : GOSUB1 389: COLOURRNDCI1S6I: PRINT 
s928,"Und nun alles wieder von vorn t!!";:NEXT:PRINTSS28,CHR$(C39); 

778 IFSZ=21THENSZ=29 

788 GOTOS82 

798 REMxxxxxxx&x FLUG DES SPRINGERS xx 

889 A=XS+YSx40 

818 IFYS=RR+5SANDRY=-1THENGOSUBS1B 


a 


RENTEN 


2 


ss 


a 


2 


# 
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828 IFXS<3ORXS>36THEN1248 
838 IFYS=19THENGOSUBS9B 

849 YS=YS+RY 

850 IFXS>3ANDXS<36THENP=RNDCAB-RR): IFP=1THENXS=XS+1ELSEIFP=STHENXS=XS-1 
860 XS=XS+RX 

878 PRINTSA+48,” ";:PRINTSA," ®; 

889 COLOURS: PRINTSXS+YS*48,CHR$(135) ; :COLOUR6: PRINTSXS+YSx*40+40,CHR$(C13 
6); 

899 RETURN 

908 REMXxkXxxk%* BALLON PLATZT xXXXxkx%x% 

918 RX=9:RY=1:P=17368: IFPEEK(P+A)<>1A41ANDPEEKCP+1+A)<>141ANDPEEKCP-I+A) 
<>141 THENRETURN 4 

928 GOSUB1319 

9338 IFPEEK(CP+1+A)=141THENPZ=PZ+1 

948 IFPEEK(P-1+A)=141THENPZ=PZ+1 

958 IFPEEK(CP+A)=141THENPZ=PZ+1 

958 PRINTSA-41,” n. 

978 RETURN 

9808 RENxxxX*x% SPRUNG AUF TRAMPOLIN x*xx* 

998 RY=RYx-1 

1888 P=PEEK(17488+A) 

1818 IFP=138THENRX=1 

1828 IFP=131THENRX=8 

1838 IFP=132THENRX=-1 

1948 IFP=320RP=1340RP=137THEN12198 

1958 GOSUB1398 

1868 PRINTSA,” ":PRINTSA+48," ; 

1878 RETURN 

1888 REMxxx*%* BEWEGUNG DES LAEUFERS. xx*%* 

1898 IFPEEKC&HF8EFFI=BTHENRETURN 

1188 Ai=XL: IFPEEKC-1984)=32THENXL=XL-2 

1118 IFPEEKC-1984)=684THENXL=XL+2 

1128 IFXL<843THENXL=843ELSEIFXL>STATHENXL=873 

1138 GOSUBS88 7 


11482 PRINTSAIL,” ”"--PRINTSA1-37,” "; 
1158 COLDUR11:PRINTSXL,CHR$SC13BICHRSCI31ICHRS$SC132); 
1168 COLOURS: PRINTSXL-38," ";CHR$C133); :COLOURY 


1178 ZL=Z2Lx*-1: IFZL=-ITHENPRINTSXL+3,CHR$(C134);, ELSEPRINTSXL+3,CHR$(1379; 
1188 GOSUB133® 

1198 RETURN 

1288 REMxkxxkk+x TOD EINES SPRINGERS *x%* 


1218 A=XS+YS*490:PRINTSA,” ";:COLOURS:PRINTSA+48,CHR$(135); :COLOURGS: PRIN 
TSA+8@8,CHR$(C136); 
1228 COLGUR1:PRINTSA+88,” ”;:PRINTSA+48,” ”; 


1238 GOTD1258 

1248 A=XS+YSx%48:GOSUB1398: FORA1=ATOSBB +XSSTEP48:GOSUB1388:COLOURS: PRINT 
SA1,CHR$C135); :COLOURS: PRINTSA1L+48,CHR$(C136); :PRINTSA1-48,” ”,:FORP=1TO 
5B:NEXT:NEXT 

1258 S2=S2-1: IFSZ=8THENi388 

1268 GOSUB1328 

1278 AS=STRING$S(C34,32):PRINTS883,A$; :PRINTSS43,A$; :PRINTS®,A$;A$; 

1288 GOTO388 

1298 RENx**xx**x*x%* UNTERPROGRAMNMNE x++%% 

1388 PLAYC1,RND(4)3+2,4,163:SOUND12,18:SQOUND13,8:RETURN 

1318 SOUNDS, 38:SOUND7,7:SOUNDS, 16:SOUNDY, 16:SOUND18,186:SOUND12,186:SOUND 
13,8: RETURN 

1328 FORA=S5TO1STEP-1:FORA1L=12TO1STEP-1:PLAY(1,A,A1,18):FORA2=1TO18:NEXT 
:NEXT:NEXT:PLAY(1,1,1,8):RETURN 

1338 PLAY(1,6,5,153:PLAYC1,3,5,15):SOUND8,8:RETURN 

: 1348 FORA=1T06:FORA1=1T012:PLAYC1,A,A1,198): FORA2=1TO18: NEXT: NEXT: NEXT:S 
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OUND8,8: RETURN 


1358 IFZZ=B8THENFORA=1TOLENCASI:PRINTMIDSCAS,A,1);:FORA1=1TOS:PLAY(1,6,6 
‚1@8):NEXT:PLAY(C1,1,1,8>:PRINTCHR$(C14); :NEXT:PRINT:RETURN 

1368 PRINTA$; :PRINT:RETURN 

137@ REMxxxkx#*%* REKORDLISTE xxXxX*%*%* 
1388 CLS:PP=PP+PZx58:22=1: IFPP<NI1C8SITHENZT7BELSEIFPP>NICLITHENCOLOURIL:G 
OSUB1349:PRINTS448, "Du hast den ersten Platz erreicht !"” 


1398 COLOUR1:PRINT:PRINT”Sag’ 


mir Deinen Namen:”" 


1488 N=9: INPUTN1$CNI:NICND=PP:IFLENCNI$SCNIDI>I1STHENPRINT”"Eingabe zu lang 


?:GOTO1488 


1418 NiSCNI=NI$SCNI+STRINGS$SCIS-LENCNI1SCNI), 32) 
1428 GOSUB1488:COLOUR11:PRINTS89S, "Rekordliste":COLOUR3: PRINTSTRING$(C48 
‚2173; :COLOUR1: FORA=1T022:PRINTSTRING$(49,248);:NEXT 


1438 Al=8:COLOUR11:FORA=165TO8SBSSTEP88:AlI=AL+L:PRINTSA,AIL;” 
;” #3: PRINTUSING”’##H#HH#R”;NICALDI,: PRINT” 


1448 PRINTS9S78,"Veiter mit <RETURN>”; 
1458 COLOURRND(156): FORA=8B8 TOISSSTEP4: IFPEER(C17488+A)=248THENPRINTSA,CHR 
$(248),;,ELSEIFPEERC-1984)=1THENZ27O \ 


1468 NEXT:GOTO1458 


1478 REM+Xk*XxXkx+%* RIPPLE SORT ##kxx%*x 
1488 V=8: FORA=1TON-1: IFNICAI>=NILCA+HLITHENLSOB 
1499 SWAPNICAI,NICA+LI:SWAPNISCA),NISCA+FL)I:V=S1 


1588 NEXT: IFV=1THEN1488 


1518 RETURN 


”::NEXT 


":NI$CAL) 








Thomas Weinstein 


Minicalc arbeitet, wie ja der 
Name bereits vermuten läßt, 


nach dem gleichen Prinzip 
wie seine großen Brüder Visi- 
calc, Supercalc, Calcstar und 
was es da sonst noch gibt. Es 
gehört damit also zur Klasse 
der Spreadsheatprogramme. 
Da Minicalc in Basic ge- 
schrieben wurde und ausser- 
dem nicht zu umfangreich 
werden sollte, kann es natür- 
lich nur einen kleinen Aus- 
schnitt aus den vielfältigen 
Möglichkeiten der oben ge- 
nannten Programme bieten. 
Für die, die mit dem 
Begriff. Spreadsheat nichts 







anzufangen wissen, hier. eine 
kurze Erläuterung: & 
Spreadsheat kann ..man 
wohl am besten mit Arbeits- 
blatt übersetzen; und mit ei- 
nem solchen hantiert. Mini- 
calc auch die meiste Zeit. 
Dieses Arbeitsblatt ist in 
Zeilen und Spalten unterteilt 
und in die dadurch entstehen- 
den Felder können Informati- 
onen abgelegt werden. 
Zwischen den einzelnen 
Feldern lassen sich nun ver- 


 knüpfungen definieren. ‚Wird 


_ dert, 


1) 
GENE, titl 
TRS80 





ei 
Ze 


“ Minicalc 


dann irgendwo ein Feld geän- 
werden automatisch 
alle davon abhängigen Felder 
auch geändert. Im beige- 
fügten Ausdruck ergibt sich 
zum Beispiel der Bruttolohn 
(Feld C4) aus Produkt aus C2 
(Bruttostundenlohn) und C3 
(gearbeitete Stunden im Mo- 
nat). Der entsprechende Aus- 
druck würde hier also C4= 
C2*C3 lauten. Immer wenn 
man nun eines der Felder C2 
oder C3 ändert, wird auch 
C4 automatisch auf den .neu- 





N 
SH 
Ss 





| 
I 


ERNRELAETEUNNINEIDEN 
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esten Stand gebracht. Die 
Zusammenhänge können 
natürlich noch wesentlich 
komplexer sein. Andere 
Felder könnten z. B. wieder 
von C4 abhängen usw. Diese 
würden dann natürlich auch 
geändert werden. 

Nun aber speziell zu dem 
hier abgedruckten Programm 
Minicalc: 

Das Arbeitsblatt von Mini- 
calc hat sechs Spalten (A-F) 
und 25 Zeilen (1-25) von 
denen jeweils die Zeilen 1-13 
oder 13-25 auf dem Bild- 
schirm des Video Genie's ge- 
zeigt werden (Mit der 
CLEAR-Taste kann man von 
der einen auf die andere Sei- 
te wechseln). Jedes Feld faßt 
8 Zeichen. Der Cursor kann 
auf jedes Feld bewegt wer- 


I.) Cursorsteuerung: 


Pfeiltasten _ 
Shift+Pfeiltasten 
Newline - 
Clear - 


II.) Ausdrücke: 


den und dann kann dort ein 
beliebiger Text (darf nicht 
mit einer Ziffer beginnen!) 
oder eine Zahl bis 99999.99 
eingegeben werden. Minicalc 
unterscheidet automatisch 
zwischen. Texten und Zahlen 
und formatiert die Zahlen 
rechtsbündig mit zwei Nach- 
kommastellen. Zu den wei- 
teren Möglichkeiten von 
Minicalc sei auf die folgende 
Übersicht verwiesen. Bei 
kleineren Problemen läßt sich 
mit Minicalc recht komforta- 
bel arbeiten und wenn man 


den Preis der „großen' 
Calc-Programme bedenkt 
-mehrere hundert bis weit 
über tausend Mark- wartet 


man vielleicht gern ein paar 
Sekunden länger auf ein Be- 
rechnungsergebnis. 


Kommandobeschreibung 
KREIKRFETRFHERKERRE RR TH 


Da das Listing auf einer 
Typenradschreibmaschine, die 
keinen vollständigen ASCII- 
Satz hat ausgedruckt wurde, 
mußte für einige Zeichen ein 


Ersatz gefunden werden. 
Speziell wird der Klammer- 
affe als Paragraphenzeichen 


und das Nummernzeichen als 
Pfundzeichen ausgegeben. 
Was gemeint ist, geht aber 
woh! immer aus dem Kontext 
hervor. 

Falls Sie keine Lust ha- 
ben alles abzutippen, kann 
vom Äutor gegen einen Ver- 
rechnungsscheck oder DM 
15,-- in  Scheinen eine 
Diskette mit dem Programm 
bezogen werden (Bitte genau- 
es Format angeben.). 





Cursor um eins nach links,rechts,oben,unten 
Cursor an linken,rechten,oberen,unteren Rand 
Cursor in erste Spalte 


andere 


Seite auf den Bildschirm 


Einleiten mit £ (Nummerzeichen). Blinkender Cursor in Kommandozeile 
Ausdruck muß folgender Syntax genügen: 
FN=FN&FN&. .. .&FN 


FN 
& 
dabei bedeuten: 


Feldname 


+, 


/ = 


A1l,A2....,F24,F25 
einer der Operatoren (+,-,*,/,%,Ä) 
Addition, - = 
Division, Ä = 


Potenz, 


Subtraktion, 
% = Prozent 


* = Multiplikation 


Der Ausdruck darf keine Leerzeichen und Klammern enthalten. 
Ausdrücke werden strikt von links nach rechts abgearbeitet. 


Beispiele 


C1=A23/A1/A2 


III.) Kommandos: 


A3=A1l+A2; F15=A3%C5 bed. F15 sind C5% von A3; 
(entspr. A23/(A1*A2)) 


Einleiten mit $. Blinkender Cursor in Statuszeile erscheint. 


LADE Filename _ 
RETTE Filename - 
ZEIGE Feld - 
LOESCHE Feld -_ 
DRUCKE (A,R) _ 


AUTO (J,N) = 


Arbeitsblatt Filename wird geladen. 
Arbeitsblatt Filename wird abgespeichert. 
der für Feld def. Ausdruck wird ausgegeben. 


A 
R 
J 


rt nt KH tt N 


tt H 


ko 


Arbeitsblatt wird mit Feldbez, 
ohne u 
Automatisches Updating nach jeder Änderung 


" geloescht 
gedruckt 
„ 








42 GE 


NIE DATA 
NEISSE EROSION EEE OTFRIED ERTERAERETEEEEEEELUNDNDen EEEEEETERNNETRGER ARE EEEETEN ELEND SERIEN. 


N = Kein Updating 


NEU - Loescht Arbeitsblatt 


Zwischen Befehl und Parameter muß genau ein Leerzeichen stehen, 
Abkürzungen sind nicht erlaubt. 


Beispielausdruck mit DRUCKE,A 





A B c D E F 

STD./BR -----)) 10.00 DM 

STD./MO _----- )) 88.00 STUNDEN 

B-LOHN z==-=2=== 880.00 DM 

.— nem um nn  uiem——u t ne nn 
ABZ,. EV. -unmsnnn 52.80 DM I RV% =) 6.00 
ABZ. BA suuemnon 84.48 DM I BA% =) 9.60 
ABZ. KV ==uumuna 21.12 DM I KV% =) 2.40 
zu a t — mn nennen 
SUMME AB z======= 158.40 DM 

N-LOHN Ssszz=e=== 721.60 DM 





er nn un an er rn in m re rn na a rn rn 


STD./NET ====#===3 8.20 DM 





GENIE 1, 111 
TRS8O0 





ERFREUT TR THF TFT TH NT TH FEN ER FT FF RE HR FF FR EFT FE HH FH FE FH FE NR A IF RR IH HF 


'* MINICALC V1.3 Erstellt: 01.08.84 
I* COPYRIGHT by Thomas Weinstein 


1%* 

'* 

'* SYSTEM: VIDEO GENIE I,II,III, TRS 80, KOMTEK 
'* DISK-BASIC unter NEWDOS 80 V2,.0 


TIEFER RTETERTERKF TFT FR TR RK FF FF FE FF HI FF FF ER FF AH FH ARE RI RER 


ak HK 


PKRRRRRHH Beginn Hauptprogramm EHRFFRREER 
CLS:PRINT$400, "BITTE WARTEN SIE EINEN MOMENT !"; 
CLEAR 5000:DIM AB$(5,25), AW$(20), CP(5,13), L$(100) 
GOSUB 4000 'INITIALISIEREN DER. VARIABLEN UND ARRAYS. 
CLS: GOSUB 100 'ARBEITSBLATT OBERE HAELFTE DRUCKEN. 
GOSUB 2000:G0TO 60 "'HAUPTSCHLEIFE KANN NUR UEBER KOMMANDO 
' "END" VERLASSEN WERDEN. 


IKK ERKEHRTR Ende Hauptprogramm FKARrERRERH 
t 


100: ARRRRERER Dyuckt Arbeitsblatt Fr reer 

110 ! T= O0 ----) Obere Haelfte des Blattes wird gedruckt. 
120 ! T= 1 ----) Untere Haelfte des Blattes wird gedruckt. 
130 PRINT$O, "KOMMANDO: " 

140 FOR L=0 TO 5:PRINTTAB(6+10*L) ;CHR$(65+L);:NEXT L 

150 PRINT 

160 T$ = "£eEN 

170 FOR L=1 TO 13: PRINTUSINGT$;L+12*T:NEXT L 

180 FOR M=0 TO 5 

190 FOR N=1 TO 13 

200 PRINTSCP(M,N)," ";:GOSUB 7000:PRINT" "; 

210 NEXTN,M 

220 PRINTSCP(O,1),CHR$(183);:PRINTSCP(0,1)+9,CHR$(187); 
230 PRINTSCP(O,1)+1,""; "STARTPOSITION 
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235 I=0:J=1 

240 RETURN 

250 '####*%%% ENDE ARBEITSBLATT DRUCKEN *rtauunt 

260 ! 

1999 !'*####%%% CURSORSTEUERUNG UND KOMMANDOAUSFUEHRUNG ##tHrt#%% 
2000 I$=INKEY$:IFI$=""THEN2000 

2005 AI=I:AJ=J 


2010 IFI$=CHR$(24) THEN I=0 : GOSUB3000: RETURN 
2020 IFI$=CHR$(25) THEN I=5 : GOSUB3000: RETURN 
2030 IFI$=CHR$(26) THEN J=13 : GOSUB3000: RETURN 
2040 IFI$=CHR$(27) THEN J=1 : GOSUB3000: RETURN 
2045 IFI$=CHR$(31) THEN T=1-T: GOSUB100: RETURN 

2050 IFI$=CHR$(9) THEN I=I+l: GOSUB3000 :RETURN 
2060 IFI$=CHR$(8) THEN I=I-1: GOSUB3000:: RETURN 
2070 IFI$=CHR$(10) THEN J=J+1: GOSUB3000: RETURN 
2080 IFI$=CHR$(13) THEN J=J+1:1-0:G0SUB3000:RETURN 
2090 IFI$=CHR$(91) THEN J=J-1: GOSUB3000:: RETURN 


2095 'FALLS ZEICHEN="$'" DANN GEHE IN KOMMANDOMODUS 

2100 IFI$="$" THEN 

PRINT$10,CHR$ (14) ; :GOSUBS000: PRINTCHR$ (15) ; :GOSUB3000 : RETURN 
2105 IFI$="£" THEN 

PRINT$10,CHR$(14); :T1=AI:T2=AJ:GOSUB8BOO+:PRINTCHR$ (15); :AI=T1:AJ= 
T2:GOSUB3000: RETURN 

2110 GOSUB 6000 'LIES DATEN IN FELD EIN 

2120 IF NOT AU THEN 2150 

2120 PRINT$10,'"BITTE WARTEN ! ICH RECHNE. ", 
2130 GOSUB 13000 

2140 PRINT$10,"FERTIG ! SIE KOENNEN WEITERMACHEN. "; 
2150 PRINTCHR$(15) ; :RETURN 

2160 KAREREHTH ENDE ABFRAGE FRARERRH 
2170 ! 

2999 IFA DRUCKE FELD KHERRHTHR 
3000 IF 1)5 THEN I=0 

3010 IF I(O THEN Is5 

3020 IF J)13 THEN J=1 

3030 IF J(1 THEN J=13 
PRINTSCP(AI,AJ)," "s:M=AI:N=AJ:GOSUB700+: PRINT" "; 

3050 PRINTSCP(I, Ty; CHRS$(183)+AB$(I, J+12*T)+CHR$(187); 

3060 PRINTSCP(I,J)+1,""; 

3070 RETURN 

3080 EHER ENDE DRUCKE FELD KRRAFERH 

3090 ! 

3999 '*#####%%* INITIALISIERUNG *#r##00% 

4000 FOR I=0 TO 5 : FOR J=1 TO 25 : AB$(I,J)=STRING$(8," 
"):NEXTI,I 

4010 FOR I=0 TO 5 

4020 FOR J=1 TO 13 

4030 CP(1,J)=130+64*(J-1)+I*10 

4040 NEXTJ,I 

4050 AlU=-1 : AZ=0 : T=0 : Fe" LLLLL.£et:Ie0:J=1 

4060 RETURN 

4070 '*####*%%* ENDE INITIALISIERUNG *rrrrx*« 

4080 ' 

4999 KEREREFHR KOMMANDOMODUS FHRRRRRR 

5000 B$="":PRINTCHR$(15); :PRINTSTRING$ (45, " 
");:PRINT$1O,CHR$(14); 

5010 I$=INKEY$:IFI$=""THEN5SO1O 

5020 IF I$=CHR$(8) THEN PRINTI$; :B$=LEFT$(B$,LEN(B$)-1) :G0TO5010 
5030 IF I$()CHR$(13) THEN B$=B$+1$:PRINTI$; :GOTOS010 

5040 IF B$="NEU" THEN PRINTCHR$(15);:RUN 
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5045 IF LEFT$(B$,4)="AUTO" THEN AU=RIGHT$(B$,1)="J":RETURN 
5060 IF LEFT$(B$,5)="RETTE" THEN GOSUB 9000 : RETURN 

5065 IF LEFT$(B$,6)="DRUCKE" THEN PRINTCHR$(15); : GOSUB 18000 : 
RETURN 

5070 IF LEFT$(B$,4)="LADE" THEN GOSUB10000 : RETURN 

5080 IF LEFT$(B$,5)="ZEIGE" THEN 
PRINT$10,CHR$(15) ; :GOSUB12000: RETURN 

5085 IF LEFT$(B$,7)="LOESCHE" THEN 
PRINT$10,CHR$(15) ; :GOSUB12500 :RETURN 

5090 IF B$="END" THEN CMD"BREAK,Y":CLS:END 

5100 PRINT" FEHLER! KOMMANDO NICHT BEKANNT.'"; 

5110 RETURN 

5120 !'**##%*%*%*% ENDE KOMMANDOMODUS **+*rrrx#+* 

5130 ! 

5999 '!'*#***%*%*%%* LIES DATEN IN FELD EIN **+rrr«x* 

6000 T$="":GOTO 6020 

6010 

I$=INKEY$: IFI$=""ORI$=CHR$(10)ORI$= CHRS (01 JORTK-CHRS(9)THEN6OLO 
6020 IF I$Ü)CHR$(8)ANDI$L)CHRS(1S)THENPRINTIS; 

6025 IF I$=CHR$(13)THENGOSUB6S1O+:RETURN 

6030 IF I$=CHR$(8) AND T$()"" THEN 

PRINTI$; :T$=LEFT$(T$,LEN(T$)-1):GOT0O6010 

6040 IF I$=CHR$(8) THEN GOTO 6010 

6050 T$=T$+I$ 

6060 IF LEN{(T$) (9THENSO1LOELSEI%=CHR$ (8) :GOTO6020 

6070 GOTO 6010 

6099 '**#**#%*%* UP ERGAENZT LAENGE DES FELDES AUF 8 ZEICHEN 


KERHRHHR 
6100 IF LEN(T$) (STHENT$S=T$+STRING$(8-LEN(T$)," ") 
6110 AB$(I,J+12*T)=T$ 
6120 RETURN 
6130 ERRERRRNRK ENDE ERGAENZEN FKREHHERHR 
6140 ! 
6999 '****%*%*%*%* FELD FORMATTIEREN **rr#x%* 
7000 T$=AB$(M,N+12*T): V=VAL(T$) 
7010 IE V()O THEN PRINTUSINGF$;V; ELSE PRINTT$; 
7020 RETURN 
7030 !*******%* ENDE FELD FORMATTIEREN **+rxr*x 
7040 ! 
7999 '##*##*%*#% AUSDRUCK EINLESEN *t*t*tr%%* 
8000 A$="":PRINTCHR$(15);:PRINT'" 
"» :PRINT$S10,CHR$(14); 
8010 I$=INKEY$ :IFI$=""THEN8OLO 
8020 IF I$=CHR$(8) THEN PRINTI$; :Ag=LEFT$(A$,LEN(A$)-1) :GOTO8010 
8030 IF I$C)CHR$(13) THEN A$=A$+I$:PRINTI$; :GOTO8O1O 
8040 P=INSTR(A$,"="):LS$=LEFT$(A$,P-1) 
8050 GOSUB 8100 "IST FUER DIESES FELD BEREITS ANWEISUNG 
VORHANDEN? 
8060 IF F THEN AW$(L)=A$ : RETURN 
8070 IF AZ(41 THEN AZ=AZ+1:AW$(AZ)=AS:L=AZ:CMD"F=SS",N:GOTO14000 
ELSE PRINT$10,"KEIN PLATZ FUER WEITERE ANWEISUNGEN VORHANDEN!"; 
8080 RETURN 
8090 !'**##*#***%* ENDE AUSDRUCK EINLESEN *+rrr#** 
8091 ! 
8099 '*%*****%%# NACH ANWEISUNG MIT LINKER SEITE SUCHEN ****r*r%** 
8100 F=0:L=1 
8103 IF L)AZ THEN RETURN 
8105 P=INSTR(AW$(L),"=") 
8110 IF LEFT$(AW$(L),P-1)=LS$ THEN F=-1:RETURN 
8120 IF L(AZ THEN L=L+1 : GOTO 8105 ELSE RETURN 
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8130 ERRERRHFERR ENDE SUCHEN AKRERHRHHR 

8140 ! 

8999 '!'****x#*%*% SPEICHERE ARBEITSBLATT ***rr#x% 

9000 FI$=RIGHT$(B$,LEN(B$)-6) 'FILENAME 

9010 PRINT$10O,"BITTE WARTEN SIE ! 3 
9020 OPEN"O",1,FI$ 

9030 FOR I=0 TO 5 : FOR J=1 TO 25 : PRINT£1,AB$(I,J) : NEXTJ,I 
9040 IF AZ)O THEN FOR L=1 TO AZ : PRINTE1,AW$(L) : NEXTL 

9050 CLOSE:PRINTCHR$(15); :RETURN 

9060 IERFEHRERER ENDE SPEICHERN FF RRTH 

9070 ! ; 

9999 !'*#*##%%# LADE ARBEITSBLATT *++rrr#e% 

10000 FI$=RIGHT$(B$,LEN(B$)-5) 'FILENAME 

10010 OPEN"I",1,FI$ 

10020 FOR I=O TO 5 : FOR .J=1 TO 25 : LINEINPUT£E1,AB$(I,J) : 
NEXTJ,I 

10030 AZ=O | 
10040 IF NOT EOF(1) THEN AZ=AZ+1 : LINEINPUT£1,AW$(AZ) : GOTO 
10040 

10050 PRINTCHR$(15) ; :GOSUB10+:CLOSE:RETURN 

10060 IHEEFERER ENDE LADEN: #r#x##*%* 

10070 ! a 

11999 IKFHRFRHRH ZEIG, KOMMANDO KFREHKERK 

12000 LS$=RIGHT$(B$,LEN(B$)-6) "ARBEITSFELD ABTRENNEN 

12010 IF AZ=0 THEN 12050 

12020 GOSUB 8100 

12030 IF F THEN PRINT$10,AW$(L); ELSE PRINT$10,"KEIN AUSDRUCK 
GEFUNDEN !"; 

12040 RETURN 

12050 '******%*%* ENDE ZEIG. KOMMANDO ****x*%%* 
12060 ' 

12499 !**#***%**%* LOESCHE AUSDRUCK ***+*rrx% 
12500 LS$=RIGHT$(B$, LEN(B$)- 8) 

12510 GOSUB 8100 

12520 IF NOT F THEN PRINTSIO, NAUSDRUCK NICHT GEFUNDEN !"; 

RETURN 

12530 FOR K=L TO AZ- ı  AWS(K)=AW$(K+1) : NEXTK 

12540 AZ=AZ-1 oh 

12550 RETURN 

12560 '***#*##*%* ENDE AUSDRUCK LOESCHEN **#rxx** 

12570 

12999 '****x*%#** AUSDRUCK AUSWERTEN **+*t+#*%% 

13000 I$=CHR$(I+65):J$=STR$(J) :J$=RIGHT$(J$,LEN(J$)-1):LS$=I$+J$ 
13010 Z=-1:Y=-1 

13020 FOR L=1 .TO AZ 

13030 IF INSTR(AW$(L),LS$))3 THEN GOSUB 14000 'WERT BERECHNEN 
13040 NEXTL 

13050 IF Y THEN Y=NOT Y ELSE RETURN 

13060 K=0 

13070 IF K)Z THEN RETURN 

13080 LS$=L$(K) :K=K+1:GOSUB1302+:GOT013070 

13090 '*****%*%*%* ENDE AUSDRUCK AUSWERTEN **#+rxxx% 

13100 ' 

13999 '****%*%**%* WERT BERECHNEN ****rr«%* 

14000 A$=AW$(L):P=INSTR(A$,'"="):ZW$=LEFT$(A$,P-1) 

14010 Z=2+1:L$(Z)=Zw$ 

14020 R$=RIGHT$(A$,LEN(A$)-P) 

a 15000 'EXTRAHIERE NAECHSTES SYNTAKTISCHES ELEMENT 
AUS R 

14040 GOSUB 17000 !'SETZE FELDNAMEN IN KOORDINATEN UM 
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14050 ER=VAL(AB$(I1,J1)) 'ER=ERGEBNIS DES AUSDRUCKS 
14060 IF R$="" THEN GOTO 14200 'ERGEBNIS IN ARBEITSBLATT 
EINTRAGEN 

14070 GOSUB 15000 

14080 IF S$="+' THEN GOSUB 
15000:GOSUB17000:ER=ER+VAL(AB$(I1,J1)):GOTO14060 

14090 IF S$="-" THEN GOSUB 

15000:GOSUB1 7000: ER=ER-VAL(AB$(I1,J1)):GOTO14060 

14100 IF S$="*" THEN GOSUB 
15000:GOSUB17000:ER=ER*VAL(AB$(I1,J1)):GOTO14060 

14110 IF S$="/" THEN GOSUB 
15000:GOSUB17000:ER=ER/VAL(AB$(I1,J1)):GOTO14060 

14120 IF S$="%" THEN GOSUB 
15000:G0OSUB17000:ER=ER/100*VAL(AB$(I1,J1)):GOTO14060 
14130 IF S$="A" THEN GOSUB 
15000:GOSUB17000:ER=ERÄVAL(AB$(I1,J1)):GOTO14060 

14200 S$=ZW$:GOSUB 17000 : E$=STR$(ER) 

14210 IF LEN(E$) ( 8 THEN E$=E$+STRING$(8-LEN(E$)," ") 
14220 AB$(I1,J1)=E$ 

14230 M=Il:N=J1 

14235 IF (N)12 AND T=1) OR (N(14 AND T=0) THEN 
PRINTSCP(M,N-12*T) ," "5 :N=N-12*T:GOSUB7000: PRINT" "; 
14240 RETURN 

14250 '*****%*%** ENDE WERTE BERECHNEN **+##x%% 





14260 ' 

15000 C$=LEFT$(R$,1) 

15010 

IFC$="+"ORC G=NHHORCH="-NORCH=" /"ORCH =NYNORCH ="Ä"NTHENS$ -C$ :GOSUB15S 
500:RETURN 

15020 

IFC$)"S"ANDC$ ("G"THENS1$=C$:GOSUB15500:GOSUB15000:S$=S1$+S$:RETUR 
N 

15030 
IFC$)"O"ANDC$ (="9"THENS$=C$:GOSUB15500:IFS$="1"ORSg="2"THENGOSUBI 
6000 

15040 RETURN 

15500 R$=RIGHT$(R$,LEN(R$)-1) :RETURN 

16000 

IFLEFT$(R$,1))=°+"ANDLEFT$(R$,1) (="9"THENS% S%+LEFTS(R$,1):GOSUBI 
5500 | 


16010 RETURN 

17000 I1$=LEFT$(S$,1):I1=ASC(I1$)-65 

17010 J1$=RIGHT$(S$,LEN(S$)-1):J1=VAL(J1$) 

17020 RETURN a 

17030 '*****#**% ENDE AUFSPALTEN *trrr*x« 

17040 ' ER 

17999 KERFRERÄRNR AUSDRUCKEN EKRRRARRR 

18000 P$=RIGHT$(B$,LEN(B$)-7) 

18005 IF INP(253)()63 THEN PRINT$10,"DRUCKER NICHT BEREIT 


18010 IF P$="A" THEN F=-1 ELSE F O 

18020 IF F THEN FOR L=0 TO 5:LPRINTTAB(6010*L) ;CHR$(65+L); :NEXT 
L 

18030 LPRINT:LPRINTSTRING$ (65,"-") 

18040 T$ = "LEN 

18050 FOR N=1 TO 25 

18055 IF F THEN LPRINT:LPRINTUSINGT$;N; ELSE LPRINT 

18060 FORM O TO 5 

18070 LPRINT" ";:GOSUB 18500:LPRINT" "; 
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18080 NEXTM,N 
18082 IF NOT F THEN RETURN 


18083 LPRINT:LPRINT 


18084 LPRINT" 


AUSDRUECKE" 
18086 FOR K=1 TO AZ 


18090 RETURN 
IH8X##%88% ENDE AUSDRUCKEN *rrr#%%% 


18100 
18110 
18499 
18500 
18510 
18520 
18530 


:LPRINT:LPRINT 


ARITHMETISCHE 


LPRINTAW$(K) :NEXTK 


NRRRRERKR FORMATIEREN KERRERER 


P$=AB$(M,N) :V=VAL(P$) 
IF V()O THEN LPRINTUSINGF$;V; ELSE LPRINTP$; 
RETURN 


IRREHRFRKR ENDE FORMATIEREN FKEFEERTEH 








U. Groke 


FUCHSJAGD 


(i2 
S0 
70 

(25 
BO 
70 


LGR:CLS:ECH 
FEEYIi="RUN 
FEHEYZ="RUN 
FEEYS="RUN 
FEEY4="RUN 
FEEYS="RUN 
FEEYS="RUN 
FEEYBS="NEW 


G=45:1 7 =04 Vs 


T1=959 


GOSUB 2450: G0SUB140 
COLOURSSFRINTE172:CHRS(132)5 CHRS (12) 5" 


22 


ARZ 


010=4 


Fuchsjast 


COLDUR4: FRINTE1 76, "Fuchsjaat" 
"Der Jaeser wird: mit den": FRINTEIS9,:CHRS$ (Z 


FRINTESZF: 
5)5" seste 
FRINTE4468; 
FRINTES2Z6: 


ser" 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZI 
210 
SEO 
FEO 


240 


FRINT®EIZES: "von Ulrich’ßroke > 


GOSUB 
ECLS 

GOSURB 159 
FOEE &HF4 
FOKE &HF4 
FOEE %HF4 
FOHE &HF4 
FOEE &HF4 
FOHE &HF4 
FOKE &HF4A 
FOHE SHFA 
FÜKE &HF4 
FOHE WHFA 
FÜEE %HF4 


560 


uvert" 


"Mit der Leertaste schiesst er" 


r 


"Wenn du 


© 


” 

OO:O 
O1l»16 
OEril6 
03, 255 
O4, 2595 
05:8 
O6» 1& 
07,32 
08:0 
09:0 
OA:7 


u 


Fuechse erlest hast ":FRINT@aAOS: "bis. 


51& Dueren”: 


AO 
Sao 
270 
280 
290 
ZOO 
Z10 
RO 
SO 
340 
AO 


an 








"CHRE(IZEISCHRS 


sn; a. 


FOEE 
FOKE 
FOEE 
FOEE 
FOKE 
FOKE 
FOKE 
FOHE 
FOHE 
FOFE 
FORE 
PÜFE 


und "CHR$ 


du der Sie 


&HFAOB» 248 
XHFAOOD: ZE 
&HFA4OD: 32 
&HFAOE> 1& 
u HFAOF: 68 
SHF410,0 
&HF411: 16 
UHF412, 16 
SHF4123: 255 
UHF414, 255 
&HF41S:8 
SHF416:4 
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370 FOEKE LHFA17:E 7708 FOKE %HF45T. 15 
280 FÜKE &HF418:0 980 FOKE %HF454:1& 
70 FOKE %HF419:0 9970 FOEE SHF4S5: 28 
400 FOKE %HFAIA:O 1000 FOKE &HF456:27 
410 FOKE SHF41E:255 1010 FOHE %HF457, 24 
420 FOKE &HF41C:224 1020 FOEE SHF458: 24 
430 FORE &HF41D:32 1030 FOKE &HF459.25 
440 FOEE %HFAIE: 64 1040 FOKE SHFA45A:2 
450 FOÜKE SHF41F,64 1050 FOKE UHF4SE: 28 
460 FOKE %HF420:0 1080 FOKE %HFASC: 232 
470 FÜOHKE &HF421:0 1070 FOKE LHF45D: 24 
480 FOKE SHF422: 224 1080 FODEE 4HF4SE> 24 
490 FÜFKE &HF423» 31 1000 FOKE &HFASF»24 
S00 FOKE SHF424:7 1100 FOKE &HF4680;4 
510 FOKE &HF425.4 1110 FOEE &HF461:4 
Ss20 FOKE &HF426:8 1120 FÜKE %HF462: 4 
S30 FOKE &HF427.16 1130 FOKE %HF463: 28 
S40 FOHE &HF428:0 11430 FDKE %HF484: 60 
350 FÜKE &HF429:.8 1150 FOHE SHF465: 126 
560 FOEE SHFA42A:8 11680 FOKE %HF466» 62 
570 FÜOKE &HFARB: 255 1170 FOKE &HF467: 26 
„80 FDOKE &HF42C: 255 1180 FOKE %HF465; 24 
90 FORE &HF42D,16 1190 FOHE %HF469.24 
&00 FOKE KHFARE:B 1200 FÜKE HFASA, 60 
&10 FOKE &HF42F»4 1210 FOKE &HF4AR:. sd 
620 FOHE UHFAZO.O 1220 FÜHE %HF46C: 122 
6830 FOKE SHF421:0 1230 FORE &HFA46D:68 
&40 FOKE &HFASZ:O 1240 FÜKE %HFA&E:TI6 
650 FOEE %HF433:.255 1250 FOKE SHF46F:.6 
660 FOEE &HFA424:7 12640 FOKE %HF470:24 
670 FÜEE %HF435:4 1270 FOKE %HF471:24 
880 FOÜKE %HF436: 2 1280 FOKE %HF472> 60 
690 FOHE &HF437.»2 1290 FOKE &HF473» 54 
7090 FOKE &HF438:0 1300 FÜOKE %HF474, 23 
710 FOKE &HF439:.8 1310 FOKE %HF475» 2353 





720 FOKE &HF43R:8 1320 FOKE %HF476: 33 
730 FOKE &: HF4SB:» 255 1220 FOEE %HF477: 38 
740 FOKE %HF4EC: 255 1540 FOKE %HF480, 38 
750 FODEE &HF43D:16 1250 FÜEKE %HF481,9 
760 PODKE %HFASE» 32 1360 FPOKE &HF482: 32 
770 FOKE %HFASF: 64 1370 FOKE %HF483:5 
780 FOKE %HF440,.16 1580 FOKE SHF484, 16 
790 FOEE %HF441. 16 1390 FOEKE &HF495:0 
800 FOKE 4HF442:16 1400 FOKE %HF486: 10 
BiO FOKE &HF443:16 1410 FORKE &HF487.0 
820 FOKE HF444.17 1420 FOKE. %HF488;0 
830 FÜKE &HF445,18 1430 FOEE &HF489:. 060 
840 FOKE &HF446:28 1440 FOKE &HF48A,0 
850 FOEE &HF447:24 1450. FORE %HFABB. 24 
8650 FOKE %HF448,24 1460 FOKE %HF480; 24 
870 FOKE &HF449:24 1470 FOKE &HF48D:0 
880 FOKE %HF44A:24 1480 FOKE &HFABE: 0 
890 FOKE &HF44E:28 1490 FOEE &HF4BF.0 
900 FOKE 4HF44C: 254 1500 FOKE %HF478> 24 
710 FOKE &HF44D.25 1510 FOKE &HF479; 60 
920 FOKE &HF44E.24 1520 FOKE &HF47A,.126 
930 FÜKE UHFAAF,24 1530 FOKE &HF47B: 235 
9740 FOKE &HF450, 32 1540 FOKE %HF47C. 151 
750 POKE &HF4S1.32 1550 FOKE &HF47D: 102 


9760 FOKE &HF452:32 1560 FOKE &HF47E,0 








GENIEDANTN ABONNEMENT BESTELLUNG 


Hiermit bestelle ich Abonnements) der Zeitschrift 
GEN] E DATA Mit der großen Programm-Sammlung für GENIE ij, 11, IH, 
E TRS 80 und COLOUR GENIE - Programmen. 


Mir ist bekannt, daß ich das Abonnement zu jedem Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. 








Der Bezugspreis beträgt innerhalb der BRD nur DM 59,40, 
pro Abonnement. (Sechs Ausgaben) frei Haus, 


Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird. 


Es ist mir bekannt, daß ich innerhalb acht Tagen nach der Abo-Bestellung das Recht 
habe, von dem Abo-Auftrag zurückzutreten ohne irgendwelche Unkosten. 


Die zusätzliche Lieferung der Programm-Sammlung gilt ab Ausgabe 5/84 bis auf Widerruf. 


Mit obigen Bedingungen erkläre ich mich einverstanden: 


Unterschrift Datum 
Bei Jugendilchen unter 18 Jahren, Unterschrift eines Erziehungsberechtigten. 





HIEDATN KontaKT-Karte 


Ihr Inserat in der GENIE DATA Nr. 


gefunden. 


hat meine Beachtung 


engen 


Hiermit bestelle ich zur schnellstmöglichen Lieferung: 


Artikel 





Unterschrift: Datum : 





andlichen unter 18 Jahren, Unterschrift eines 





GENIEDATA KLEIN-ANZEIGEN-BESTELLUNG 


Bitte veröffentlichen Sie nachstehenden Text in der 
nächsten Ausgabe von GENIE DATA unter der Rubrik 
Kleinanzeigen. 

Bei ABONNENTEN unbedingt ABONNENT hin schreiben 
SONST ERFOLGT RECHNUNG I 
































Unterschrift Datum 





Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 


GENIEDATHETTP 


Reservieren Sie uns bitte angekreuzten Platz für ein Inserat 
zum Erscheinen in der nächsten GENIE DATA . Unsere Satz- 
vorlage, bzw. Film, geht Ihnen umgehend zu. 


Oi/lSeite O 1/8 Seite 
O 1/2 Seite O Wir sind interessiert an Kleinanzeigen 
O 1/3 Seite O Bitte, senden Sie uns 
O 1/4 Seite Ihre Anzeigenpreisliste zu ! 
GENIE DATA 
OÖ WER-WAS-WO-Einkaufsführer 
Inseratgröße 55x45 mm DM 55,-- + 14% MWSt. 
abzüglich 10% Rabatt für 6x Erscheinen. 


Satzkosten für 4 Zeilen einmalig DM 15,-- 
Jede weitere Zeile Satz kostet DM 7,50 





O Neusatz muß 
von Ihnen 
erstellt werden ! 
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GENIE DATA 51 


SUEEERNR Re ERITREA EEE ATELIER EIERN ERITREA LEETETETETTEE FESTER 


1570 FOEE &HFA7F:0 
1580 RETURN 
1570 FOR A=40 TOD 800 STEF 1680 


1800 COLDUR2ZEFRINTEA:" BR ECHTE STRANG ROH OR 
KEIRESRKSLPTOOTE RG OH NR 4 


1810 NEXT A 

1520 E=901:B0SUR 140 
1530 Q=09-15:M=Dk E3=118: Z=Z+rI00 

1640 FRINTEI2O- "Punkte: ": 

16850 COLOUR?T:PRINTEK » CHR$ (142) : COLDURSF:FRINTEK-40. CHR$ (140) 
1660 C=-42:D=0 5 

1870 Ci=C:C1=C1+80 

1680 C2=RND (IB) HPIC2=0R+D 

1670 IF C1>&00 THEN A130 

1700 IF C1>C2 THEN GOSUR 2070 ELSE G0SUR 1880 

1710 D=D+80:60T0 1670 

1720 C2 = RND(Z8)+880:C1=C:IF Ci:C2 THEN 1770 ELSE 1800 
1730 FOR C=C1T0882 STEF-2 

1740 COLDURS:FRINTEC. CHR$ (128) SCHRS$ (129) 

1750 GOSUR 2210:60SUB 2400:FRINTEC,"  " 

1760 IF.C=K THEN 2630 

1770 COLOURSEFRINTEC-1.CHR$ (130) SCHR$ (131) 

1780 GOSUB 2310: BOSUR 2400: FRINTEC-1:" ":IF C-i=k THENPATO 
1790 NEXT CH 60TO 1660 

1800 FO i TO 914 STEF 2 

1810 CO :FRINTEC, CHR$ (132) SCHR$ (LIED 
1820 G T10:350SUR 2400: FRINTEC," "3 
1830 I PO 

1840 CO JInTecHt, ‚CHRS (134) : ; CHR$ (135) 
1850 6 un 
1840 I 
1870 NE 
1850 FO 
1890 T= 
1900 COLOL 
1910 Z= :PRINT@F28. 23 
1920 GOSUB PR10: GOSUR 2400 

1930 PRINTEC." . " 

1940 T=SC+H2:U=CHl 

1950 COLOURS=ZFRINTEC+1, CHR$ (134) I CHR$ (135) 
1960 Z=Z-i:FRINTE928, 73 ; 
1970 GOSUR 2210: GOSUR 24004 FRINT@C+H1:"  ":NE} 
1980 T=C+40 
1990 COLOURS:FRINTEC: CHR$ (136) :FRINTEC+40; 
2000 Z=Z-1:FRINTEIRS, Zi 

2010 GOSUB2FIO 

2020 FRINTEC." "IPRINTECHAO," 
2030 T=C+BÖ 

2040 COLDURS: PRINTEC+40: CHR$ (138) : PRINTEL 
2050 Z=Z-1:FRINT@928, 7: 

2060 GOSURPF9O:PRINTEC+HA0, " ":PRINT@E 
2070 FORC=CI TOD C2 STEF -2 
2080 T=C:U=C#+1 

2090 COLDURS:FRINTEO: EHR$ (128) 5 © 
2100 Z=Z-1:PRINTE928; Z: IE 
2110 GOSUR ?310:G05UR 2400: 
2120 FRINTEC." " 
2139 T=C-1:U=6 
2140 COLOURS:FRINTEC-1: CHR 
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52 GENIE DATA 


2150 
2160 
2170 
zZ180 
21970 
PROO 
Z2E10 


Pa 


2230 


ZRA0 


2250 T= 


ErB60 
2270 
2280 
Z2I0 
ZS00 
ZEI10 

2320 
RS50 
SF4O 
ZII0 
ZE60 
2370 
ZEB0 
EI 
2400 
zZ410 


2420 


ZAEO 
2440 
2450 
2450 
2470 
2480 
2490 
A500 
510 
IE 
20 
540 
25 560 
2570 
F5B0 





Z=Z-1:PRINTEI2B: Z3 
GOSURBR ZE10:G05UR 2400 
FRINTEC-1." 0" 
NEXT C 
T=-C+40 
COLOURS:PRINTEG, CHR$ (126) 
FRINT@EC+40. CHR$ (157) 
2=2-1:FRINTE928, Z5 
GOSUBZEF7O 
FRINT&EC; " "TZFRINTEC+A40." " 
C+B0 
COLOUR: FRINTEC+40, CHR$ (138) :FRINT@EC+HBO, CHR$ (129) 
Z=7-1:FRINTEI2B> Z5 
GOSURFEFO 
FRINT@EC+40," "SFRINTEC+HBO." " 
RETURN 
L=-FEEK (-1984) 
FOR I= 1 TOM: NEXT I 
IF L=0 THEN RETURN 
FRINTEE:»" "EPRINTEE-40," 
IF L=44 AND K@9717 THEN KEskrl 
IF L=32 AND E>881 THEN kK=ek-l 
CTOLDUR2: FRINT@R, CHR$ (141) :COLOURF:PRINTEK—-40; CHR$ (140) 
RETURN 
FORI=1 TOM: NEXTI:RETURN 
FOR I = 1 TOM :NEXT I 
COLDUR2:FRINTARK, CHRS$ (142) 
At=INKEY$: IFA$T >" "THEN RETURN ELSE G0SUR 2730 
FRINT&EK> CHR$ (142) 
RETURN 
FORI=1T0 37 STEF 2 
COLOURZ:FRINTEI, "WW 
NEXTI 
FORI=8B81 TO919STEFZ 
FRINTEI. "WW: 
NEXTI 
FORI=B1TOBOISTEFBO 
FRINTEI. 
NEXTI 
FORI=117TOB39STEFBO 
an IT, "wo 

xTI 
BEER 
SOUND, 6: SOUNDS 0 Zu. NOS 1 EDEN 2 SOUNDB; 31:SQUNDY» 1 





: SOUND10, 24: 50UND12,80:5DUNDI> F2 RETURN 


2590 
2600 
Z610 
220 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2720 


FORJ=1T05:FORI=1T08 

FLAY(1:4>1:15) 

NEXTISNEXTJI 

RETURN 

F=K:FORI=1T020 

FORJ=1T07 

COLOURZ:FRINTERK, CHR$ (142) 
FLAY(1:5>J:159) 

SOUND» 30: SOUND? 7: SOUNDS: 16: SOUND9Y: 154 SOUNDI1O. 16°SOUNDI2.1& 
EOLOURFFFRINTEK: CHR$ (128) SCHR$ (129 
NEXTI 

NEATI 

FLAY(1»1:1»0) 

G0T0 3910 

F=40 

















GENIE DATA 53 





COLDURS4S PRINTER - 50, CHR 0144) 
Si=5lrlEPRINTAITD. "Schusszahli "357% 
5=kl-1 MU 1G0O5UR 2380 

IF K=eINTIRV/IDIHZ THEN 2735 ELSE 
E=kND iS) - ZI TOLOURTEFRINTAEC-L, ® VGleltBiFERINTEL, IHRE (LED) ICHRS$ 
5 Tels Uslri 

FRINTER, " 

yebs-dhu 

LOLOURSSFRINTES. CHRS$ (145) 

Ir 5=T THEN GOTO 27970 

IF ==J THEN GITO 100 

IF S{F THEN 2865 

GÜTO 2770 ! 

FRINTAL- 80," ® 

FRINTES." " j 

zBBO0 FRINTEC," ":Z=Cc-E 

ZE50 RETURN 

2900 FRINTER." 

20 S=e5-40  " 
LOLOURS:FRINTGES, CHR$ (145) 

IF S{/&8C& THEN ZIE0 

GOTO 2950 
COLOURZEFRINTES-4U. CHRE I LAT A VeV +] 
FRINTES." "IFRINTEH-BO," " 
Z=Z2-L\C# FRINT@EYZE: Z& 

RETURN 

FRINTES:" " 

FRINTEE-BO," " 

FRINTEC-L." " 
FRINT@E-»" "SFRINTAK-40."" 
FRINTETL-CHRECLIOFSCHRECARZIUIS 






















U SHF405, Ö 
EI SHFAUF.G 
KHFAOR-C 
&HFAOER. 224 
&HF4OC. ZOE 
UHFAUD, ZOO 
&HFAOE: 196 
&HFAOF.- 95 
EHFALEB» 224 
UHFAAC- 208 
KHFALD» 200 
SHFAAE» 196 
UHFALF» IF 
&HFA22,C 
KHFAEE: 
SHFA4ZAS AL 
&HF425,19 
U HF426,35 
&HFA427,198 





FROO 


N 


3210 


mm 
EHER 





270 
BESO 
290 


1 3300 











54 GENIE DATA 





EEIO FOKE HFASS:T7 

3340 FOKE &HF434, 11 

Ss350 FOKE &HF435; 19 

3360 FÜKE &HF436:35 

3370 FOKE &HF437.:198 

3380 FOKE &HF440,1 

233970 FOKE LHFAAI.1 

3400 FOKE &HF442,2 

3410 FOKE &HF44S3: 

3420 POKE &HF444,8 

=430 FOKE &HF445,17 

440 FOKE &HF448: 1 

3450 FOKE %HF447, 230 

3460 FOKE &HFA50;1 

3470 FORE %HF451»1 

35480 FÜKE &HF452,2 

3490 FOKE &HF453:.4 

3500 FPOKE &HF454,8 

3510 FOKE &HF4SS:17 

3520 FOKE &HF456: 1 

3530 FOKE &HF457,30 

2540 GOTD 2850 

3350 F=RND(F)-2 

3580 PRINTEF," " 

3570 F=F+P:T=T+F 

3580 FRINTEF>CHRS$S (130) 5 CHR$ (1351) 
3590 RETURN 

3600 RESTORE 

S61l0o B=o 

3620 FORJ=1TDA0 

36350 READ A 

3640 ON A GOSUR 3670; 3680, 3690, 3700:37105:3720: 3730: 3740: 3760:3770:3780 
3790, 3800: 35840: 3880 ,23920 

3650 NEXTJ 

2660 RETURN 

3670 FLAY(1:0;-1>15) RETURN 

36B0 FLAY (10:55:15) RETURN 

3690 FLAYt1:0:5 15) RETURN 

3700 PLAY (1;0:6: 15) RETURN 

=710 D1i=D+1:FLAY(1:0,1-15) RETURN 

3720 FORI=1TDIO0O:NEXTIEFLAY (1:1: 1,0) 5 FORT=1 TO5SO: NEXTISRETURN 
53750 FORI=ITDSO:NEXTISPLAYt1>1»1>0)5FORI=1TD50O: NEXTI: RETURN 
3740 FORI=ITOSO: NEXTISFLAY (1.151: O) EFORT=1TOS:NEXTISRETURN 
3750 BDATAL> 8: 28:55 75558, 2,8,2 »7:3585 558: 35 7558: 3:8: 2575 i: 82:83: 7,5 
8:53:82 735833558535 75:85 71558: 3585 35:7:35 755584348553 7»557 

2780 CLS:GDSUR 2450 

5770 FRINTE@E205;: "Du hast die Jast sewonnen" 

5780 FRINTE385: "Der Fuchs wurde"52Z15"mal anseschossen" 

3790 FRINTES2S5: "Es wurden "3V5'" Baesume zerschossen" 

5800 FRINTE485: "Du bekommst "3:73" Funkte" 

3810 FRINTE805: "Du hast "351s’" mal seschossen" 

3820 0=4:G05UB35500:160TD 3830 

3830 EDLDUR4:FRINTE720; "Neues Spiel ? Ja =\1/ Nein =N)'" 

3840 A$=INKEY$:IF At=""THEN 3840 

3850 IF A$s>"J"ANDASSH"N"THEN 3840 

358640 IF A$="N"THEN 35870 ELSE RUN 10 

3870 CLS:FRINT@40O, " Du hast recht - Fuechse werden veraa 
st und nicht erschossen"; 

5880 FPRINTEBRO." "5 

3870 END 





































GENIE DATA 55 
3700 RUN 

3910 CLS:COLOURS 

3920 FÜRI=OTOF& STEF 4 

3920 FRINTEI » CHR$ (128) 5 CHRS$ (129) SCHRE(IIO) SCHRS$ (II) 

3940 NEKTI 

3950 FORI=797T0777 STEF 160 

3960 FRINT@I.CHR$ (136) SI CHRS$ (136) 
"35970 FRINT@I+40: CHR$ 1157) 3 CHR$ LI) 

3980 FRINTEI+BÖO, CHRS (138) SCHRS (1305 5 Kara 
2990 FRINTEI+120,CHR$ (129) 5 CHR$ (137) 35 

4000 NEXKTI 

4010 FÜRI=BS0 TO 716 STEF 4 

AO2O FRINTEI , CHR$ (132) SCHRSCLSTI SCHRS (134) SCHRS$ (135) 5 

4020 NEXTI 

4040 COLOUR?:FRINTE18S: "DU HAST DAS SFIEL VERLOREN" 

4050 FRINT@E285: "Der Fuchs wurde "52713" mal verwundet” 

40650 FRINT@405;. "Es wurden "3V:" Baeume zerschossen" 

4070 FRINTES2S5:"Du brauchst Schiessunterricht" 
AOUBO FRINT@545. "Du hast "3515" mal seschossen" 
4090 O=ZHB0SUR F600 

4100 GOTD 3350 

4110 EDIT 3595 

4120 LIST 

4120 C=Cl 

4140 T=C+40: COLOUR FRINTEC: CHRS$ 11726) 5 

4150 FRINT&EC+40, CHR&$ (137): 

4160 GOSURZITFO 

4170 FRINTEG." "S:SFRINTEC+H40:" "5 

4180 T=C+B0: C0OLOURF:FRINTEC+H40: CHR$ (1389 8 

4190 FRINTEC+BO:. CHR$ (139) 5 

4200 GOSUR2ET7O 

4210 FRINTEC+40,." "3:FPRINTEC+HB0," ": 

4220 C=C+BO: IF C>B37 THEN 1720 

4250 GOTO 4140 











C | Abonnieren - 
I" Profitieren # 


Sie können als Abonnent bei jeder Ausgabe drei Zei- 
dien KOSTENLOS inserieren!!! - Ferner erhalten Sie’ 
zusätzlich kostenlos unsere 


GROSSE PROGRAMM-SAMMLUNG 
MIT VIELEN GENIE I, II, 111, TRS80 und 
COLOUR GENIE PROGRAMMEN!!! 


ichern Sie sich diese tolle PROGRAMM-SAMMLUNG 


ACHTUNG! Schicken Sie Ihre ABO-Bestellung haben Sie die Chance bei unserer Verlosung 
in dem Zeitraum vom 1.Okt.-1.Nov. 84, dann einen VZ 200 Computer zu gewinnen!!! 











56 GENIE DATA 


Klaus Kluge 


Eingeschränkte 


Hochauflösende Grafik 





Das hier vorgestellte Programm 
bietet neue Grafikmöglichkeiten 
auf einem Genie I ohne Hardwa- 
rezusatz . 

Wer hier in der Überschrift nur 
die „Hochauflösende Grafik" liest, 
u. jetzt an das Setzen u. Lö- 
schen von einzelnen Punkten auf 
dem Bildschirm denkt, den muß 
ich auf den Boden der Tatsa- 
chen zurückholen. Das ist ohne 
Hardwarezusatz wohl unmöglich. 
Trotzdem ist man mit diesem 
Programm in der Lage Grafiken 
auf dem Bildschirm zu zaubern, 
die mancher bisher für unmög- 
lich gehalten hat. 

Das Funktionsprinzip. 

Vielleicht haben Sie sich schon 
so manches mal über die kleinen 
schwarzen Streifen geärgert die 
über den Bildschirm huschen, 
Ein besonders extremes Beispiel 
hierzu ist 'Stellar Escort’ von Big 
Five Software. 

Jedesmal wenn die CPU zum 
Lesen oder Schreiben auf den 


‚wiederholspeicher zugreift 
(3CO0OH-3FFFH), wird dem Vi- 
deointerface kurz der Zugriff 


verwehrt. Dies führt zu den kl. 
Aussetzern auf dem Schirm. 
Diejenigen unter |hnen, die mit 


einem ki. Hardwarezusatz die 
Priorität:von CPU u. Videoin- 
terface.. beim Bildschirmzugriff 


umgekehrt haben um die Strei- 
fen ‚zu. verhindern, können sich 


s398 









das Eintippen des Programms er- 
sparen. Sie werden nur einen wei- 
ßen (oder grünen, oder in was für 
einer Farbe auch immer) Bild- 
schirm sehen. Alle anderen kön- 
nen durch schnellen, wiederhol- 
ten Zugriff auf den Bildwieder- 
holspeicher Muster erzeugen. Da- 
zu muß das angefügte Sourceli- 
sting assembliert werden, 
Der Programmlauf. 

Kurz noch ein paar Worte zur 
Bedienung des Programms. Es 
fragt zuerst nach einem Start- 
wert. Dieser gibt die Anzahl 
der Bildschirmzugriffe pro Durch- 
lauf einer Endlosschleife an. Ganz- 
zahlige, positive Werte sind erlaubt, 
wobei die größte Zahl von der 
Ladeadresse des Programms u. 
vom Speicherausbau Ihres Ge- 
nies abhängt. Bei einer fal- 
schen Eingabe ist diese zu wie- 
derholen. 

Abhängig vom eingegebenen 
Wert erscheint anschließend eine 
Grafik auf dem Bildschirm. Da- 
bei kann es sich um ein stehen- 
des Bild, ein laufendes Bild oder 
einfach um einen flimmernden 
Bildschirm handeln. Die inter- 
essanten Startwerte wird man 
schnell durch experimentieren 
herausfinden. 

Drückt man die BREAK-Taste, 
so wird die Textseite erneut 
präsentiert, u. die Eingabe eines 
neuen Startwertes ist möglich. 


Will man einfach einen Wert 
nach dem anderen ausprobie- 
ren, so genügt es, während sich 
die letzte Grafik noch auf dem 

Bildschirm befindet, die NEW- 
LINE-Taste zu drücken. Solange 
diese Taste gedrückt bleibt wird 
zur Orientierung der neue Wert 
in der linken oberen Ecke des 
Bildschirms angezeigt. Läßt man 
die Taste los erscheint die neue 
Grafik. 

Das Programm. 

Der Teil des Programms, der 
die Grafiken erzeugt beginnt mit 
dem Label KEYS. Dieser Teil 
stellt den Kopf einer Schleife 
dar, bei dem die Tastatur auf 
die erlaubten Tasten ‚BREAK’ 
u. ‚NEW LINE’ abgefragt wird. 
Ab dem Label HERE wird der 
Speicher mit dem Byte 7EH ge- 
füllt. Dies stellt den Befehl ‚LD 
A, (HL)' dar. Über das HL-Re- 
gisterpaar wird hier wiederholt 
aus dem komplett weißen Bild- 
schirm gelesen. 

Die Anzahl der Bytes wurde ja 
vorher eingegeben oder mit ‚NEW 
LINE’ erhöht. Am Ende dieses 
Blocks mit 7EH’s folgt noch 
ein Sprung an den Anfang der 
Routine (nach KEYS). 

Von zusätzlichem Interesse ist 
vielleicht noch die Textausgabe- 
routine PRINT. Diese erwartet 
beim Eintritt die Adresse an der 
das erste Zeichen ausgegeben wer- 
den soll, gefolgt vom Text, der 
mit einem O-Byte abgeschlossen 
wird. Taucht im Text das Zei- 
chen ‚s’ auf, so werden die folgen- 
den zwei Byte als neue Ausga- 
beadresse interpretiert. Mit dieser 
Routine kann man schnell und 
speicherplatzsparend einen ganzen 
Bildschirm aufbauen (auch in 
anderen Speicherbereichen). 


88188 ORB 53B0H 
‚ BIO BR 
GENIE I#1l 88120 ;** Eingeschränkte Hochauflösende Grafik V1.85_  +** 
- TRS80 BBISB ;** i4-MAI-1984 von Klaus Kluge ** 
040 RR 
33886 F3 2 BBISBBTART DI sinterrupts stören nur. 
S38t EC9TOCO GBI ©. LD A,BC9H RET-Opcode 
3383 S2Ci4i BBI7O LD (41014) ,A ıDO8 stört auch 
3386 SIR053 GBiaa LD 8P,START }8tack in Sicherheit 
89307 EDEIBL 08198. CALL iC9H Bildschirm löschen 
3306 217753 08208 LD HL,TEXT = 








Text ausgeben 








338r 
5312 
3315 
5316 
5319 
S3ic 
Ss1iE 
5328 
5324 
3325 
5326 
5328 
S32B 
S32E 
3338 
5331 
5333 
3336 
3357 
3339 


533B 
SIE 
5341 
3342 
5345 
5546 
5348 
3348 
S34E 
SI4F 
3351 
3352 
5354 
3355 
5358 
335A 
3358 
335E 
S35F 
5368 
Ss 
3362 
5363 
3365 
3368 
336B 
Ss3sE 
3378 
3372 


3375 


3377 
53379 
3388 
538A 
s3Al 
33A3 
33B8 


EDFDS3 
CDBS1B 


2BEB 


247553 


23 
227553 
3663 
23 
118054 
73 


EDB8 
138034 


89210 
88228 
80238 
80248 
80258 
00248 
88278 
80288 
08298 
80308 
88310 
20320 | 
80338 | 
08348 
80358 
08348 LOOP 
88378 
00388 
80378 
20488 
00410 ; 


8942B ENTER 


88438 
88440 
89458 
09458 
88478 
28488 
08498 NWAIT 
895088 
88518 
28528 
88538 
80548 


Ba55B READY 


B054B 
88578 
TEIL) 
88598 
aBsBR 
08418 
08628 
08438 
80648 
08458 
80468 
08478 
00488 
00498 
88708 
28718 ; 
80728 LAST 
08730 ; 
88748 TEXT 
20758 
88768 
88778 
88788 
88798 
aaaaa 


EALL 
CALL 
INC 

CALL 


PRINT 
{BBSH 

HL 

BESCH 

A, (ABAFR) 
2 


NZ, START 
BC, (4121M) 
A,8 

c 

2, 8TART 
HL ‚HERE 
DE, HERE+1 
A,TER 

(HL) A 


PO, READY 
(HL) 
2,L00P 
START 


1C9H 
HL, (LAST) 
HL 


.DE,HERE-1 


A 
HL ‚DE 
BFAFH 

A, (38484) 
A 

Z,NAIT 

HL 

(HL) ,7EH 
HL 

(LAST) ‚HL 
(HL) ,BCSH 
HL 
DE,KEY8 
(HL) ,E 


NZ, START 
HL ,SCR@H 
DE,SCRLR 
BC,SFFH 

(HL) „BBFH 


KEYS 
8 
3C59H 


GENIE DATA 


und Cursor positionieren 
jEingabe 

auf 1/0-Bufferanfang 
String in Zahl umwandeln 
Datentyp prüfen 

jauß Integer sein 
jandernfalls von vorn 
Eingabe nach BC 

darf nicht Null sein 


ıdann von vorn 

jab hier 

Programs schreiben 
entspricht LD A,(HL) 
erstes Byte 

jmeiter 

jbis BC Null ist 

ınach im RAM? 

ja, noch ein Byte aehr 
nein, von vorn 


Bildschirm löschen 
letzte Adresse holen 
jund retten 

Anzahl der Bytes berach. 
carry löschen 

HL = Anzahl der Zugriffe 
;HL dezinal ausgeben 
ıKontrolltasten abfragen 
solange NEW LINE gedr. 
jist, warten 


Programm verlängern 
ıneues Ende 
Ende nerken 
JUMP-Dpcode 


}Sprungziel 
jablagen 


ınoch im RAM ? 

jnein, von vorn 
ıkoapletten Bildschire 
jneiß malen 


jPrograma anspringen 


letzte Position 


"Eingeschränktet’ 


3C95H 


"Hochauflösende 


SDi6H 


Brafikh‘ 


'1984 von Klaus Klugef‘ 


SES7H 


57 














58 GENIE DATA 








S3SBA 45 20512 DEFM 'Erster Werts’ 
5366 COIF 29922 DEFW 3FCEH 
55c8 32 208358 DEFM "BREAK - Neue Eingabe$’ 
53DD EBSF 82848 DEFR 3FEBH 
53DF 4E 89852 DEFM "NEW LINE - Nächster Wert$' 
SSF8 2840 82858 DEFR 4828H Cursor positionieren 
SsFA A33E 88878 DEFY SE&ASH jan diese Adresse 
SSFC 88 08888 NOP 
20898 ; 
S3FD SE aB90B PRINT LD E, (HU) ıLSB der Zieladresse 
SIFE 23 88918 INC HL 
SSFF 56 28728 LD D, (HL) MSB der Zieladresse 
5480 23 09938 INC HL 
5AB1 7E 88948 PRLOOP LD A,tHhL) jAusgabezeichen lesen 
5402 23 09958 ING HL 
5403 B7 20968 ÖR A 80H als Endekriterium 
5484 CB 889708 RET Z 
5485 FE4B 80988 CP "gi neue Zieladresse ? 
5487 28F4 89999 JR Z,PRINT 
5409 12 81888 LD iDE),A einfach ablegen 
34BA 13 81818 ING DE 
5ABB i8F4 810928 JR PRLOOP 
81830 ; 
S48D SA4BSB BIB4B KEYS LD A, 138404) tKontrolltasten abfragen 
5410 3D 21958 DEC A NEW LINE gedrzückt ? 
5411 CA3BSI 24Bii . gp Z,ENTER Programm verlängern 
5414 FEO3 81878 cp 3 ıBREAK gedrückt ? 
s4i& CABSSI 01998 Jp L,START jvon vorn 
5419 08 81998 HERE NOP hier wird das: Programm 
21188 ergänzt 
5388 81118 END START 


GENIE I+l1 


TRS 80 
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Beides! SLAlfradix 10 

elües:  3U ra 
Druckprinzip: 8-Nadel-Matrix-Druckkopf auf Normalpapier Geschwindigkeit: 200 Zeichen/Sekunde, bei Schönschrift 32 Zeicher/Sekunde Puffer: 16K Schrift- 
größen: 10, 12, 17 (5, 6, 8.5) Zeichen/Zoll, entsprechend 80, 96, 136 (bei doppelter Breite: 40, 48, 68) Zeichen/Zeile Schriftmatrix: Standard ASCIH mit 
Unterlängen 9 x 9, Breit 18 x 9, Fett 18 x 18, Schönschrif 17 x 9 Grafik: Blockgrafik 6 x 6, Low Resolution Grafik 480 x 8 Punkte/Zeile, High Resolution. 
960 x 8 Punkte/Zeile, Ultra High Resolution I9R0 x 8 Punkte/Zeile Schriftsatz: 96 Standard ASCII Zeichen, 96 NLQ-ASCH Zeichen, 88 Internationale 
Sonderzeichen, 64 Sonderzeichen, 32 Blockgrafikzeichen, % x 96 Hintergrundzeichen (normal + proportional) Schriftarten: Normal, Rlite, Eng, Breit, Extra Pett, 
Superserip: und Subscript Sonderfunktionen: Schönschrif (NLQ), Einzelblatteinzug, Selbsttest, Hintergrundzeichen, Macro-Instruction, durchgehendes 
Umerstreichen, Form- und Längenauswahl mit Kippschalter, 7 oder 8bit wählbares Interface, Papiertransport vorwärts und rückwärts, Hochauflösende Grafik 
FormularFunktion: vertikaler und horizontaler Tabulator, linker und rechter Rand, Leerzeilen zwischen den Seiten, Zeilenanzahl pro Seite, Zeilenabstand % Zoll 
und %2oll, sowie programmierbar in Yu Zoll und %Zoll Farbband: Kassette, Nylon 40/34 F, endlos Papier: 1 Original und 3 Durchschläge, Einzelblatt 
14-21,8cm Breite, Endiog 10,2-25,4cm Breite Interface: Standard: Seriell und Parallel, Optional: IERE, Commodore, Grafstar (APPLE) Abmessungen: 


41,4 x 345 x 11,7 cm Gewicht: 9,1 KG TCSZ 
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